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1.0 ABSTRACT 


This formatter was written to format Winchester 
drives attached to the RQDX3 disk controller. All new drives 
boing attached te the RQ@DX3 controller must be formatted 
so that the drive can be brought online for use by @ MSCP 
server or in simpler terms to be used ey en operating system. 
This disk formatter is similar to the RQDX1/2 disk formatter in 
that the same standard DUP dialog is used and similar 
standard formatter questions are passed by the controller 
to the host user. The formatter is different from the 
RQDX1/2 disk formatter because a table of disk formatting 
parameters is passed to the controller. The RQDX1/e 
disk controller already has these tables in its firmware. 


The format program actual has 2 controller run erogrens in it. 
If the controller is an RQDX3, the program will down line load a program 
into the controller which will identify the drive according to its 
cylinder size. Since each of the DEC drives have a differn cylinder 
size it will know which drive it is and therefore which parameter or 

UIT table to pass to the controller. The second program is already 
contained in the microcode. This ram called “FORMAT” does the 

actual formatting of the drive. T t program just passes information 
back and forth to the controller local program. 


The UIT, Unit information Table is picked by the down line loaded 

auto sizer program (AUTOSZ). After the drive is known the format 

program will be run on the controller. This format ram (FORMAT) is 

very similiar to the RQDX1/2 format program. The only difference as 

stated before is that the UIT will be down line loaded into the drive 

if the down line load ee is asked. Every time the drive is | 
table which was placed on the drive by this 

formatter program will be transfered into the controller with all 

the drive parameters. As 1 as the UIT still exists on the drive 

it does not have to be sed in by the host user. ey if the user 

ler will the UIT 


a table wasn't necessary. 


The UIT table contains information about the drive such as size, 
number of tracks fer surface, etc. This information is already 
know for certain DEC acquired Winchester drives. These tables are 
usually different for the different drives manufactured. CAUTION - 
do not use non DEC drives you are liable to destroy Format and Data 
storeed on them. 


All t not a goal of the diagnostic this program can be used to 
run standard DUP dialog local programs such as “DIRECT”. These local 
programs are stored in the firmware. 
2.0 HOW TO RUN IT? 


2.1 HARDWARE REQUIREMENTS 
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SEQ 0004 


118 ’ An RQDX3 disk controller and one or more Winchester or Rx33 
+25 drives configured into a Q-bus PDP-11 system. 

1.3 2.2 SOFTWARE REQUIREMENTS 

123 This di tic was written using DRS the Diagnostic 

124 Supervisor. The diagnostic is expected to be run under XXDP 

125 diagnostic operating system. It is also possible to run the 

138 formatter under APT. 

128 2.3 QUESTIONS ASKED AND THEIR ANSWERS 

1¢3 q.9e8 HARDWARE QUESTIONS FROM DIAGNOSTIC SOFTWARE 

131 The diagnostic is a standard DRS program with the standard DRS commands. 
132 Below I have a script of the stions asked an the answers to the 

133 initial DRS questions, The Default value for the IP address is 172150. 
134 This is standard configuration address for the first MSCP controller 
135 on a system. Any other MSCP controllers on the system will have to be 
136 in the floating address space of the 10 page. The default vector 

137 address is 154 any other value between 0-7/4 could be used but is not 
138 susgested. If yo want the default answers then just hit the “return” 
139 key on the keyboard. The Formatter will run an auto sizer to determine 
140 the proper drive characteristic table to give to the controller. This 
141 auto sizer will figure out how many cylinders on the drive and through 
142 @ small look up table we decide which table to down-line load to the 
143 RQDX3 controller. The user will have to enter oe drive number and a 
144 serial number. After this a warning message will appear aski if 

145 the user wants to proceed. The default is no so the/ user must type “"y* 
149 in order to format his drives. 

133 Typical Diagnostic Script: 

150 boot XXDP 

151 .RUN ZRQC?? 

152 ZRQCCO.BIN 

153 

154 DRSXM-AO 

155 ZRQC-C-0O 

156 RQOX3 Disk Park\Format pepe 

157 Unit is RDS1,R052,R053,RD54,RX33,RD351 Please type yes to “Change HW?” 
158 Restart Address is 141656 

159 DR>START 

160 

161 Change HW ? Y 

186 @ Units ? 1 

164 IP Address 172150 ? <rtn> 

165 Vector Address 154 ? <rtm> 

166 Just Park heads N ? <rtn> 

167 Logical Drive (0-255) 0 ? <rtn> 

130 Drive Serial Number(1-32000) 12345 ? <rtn> 

Ba seeks WARNING all the data on this drive will be DESTROYED *+##« 

i7¢ Proceed to format the drive N ? <Y><rtn> 

174 
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SEQ 0005 

175 
176 2.22 UIT TABLES 
178 The UIT tables are stored in this program. There are 10 large date tables 
179 formed in this diagnostic that contain the drive parameters for 
180 certain DEC drives. There are only 6 RQDX3 Winchester drive 
181 manufactures. So only 6 of the tables contain any information. The 
182 others are there for future drives. The AUTOSZ program ran previous 
183 to the FORMAT program will determine what type of drive is to be 
184 formatted and which table to pass to the disk controller. Orce in the 
185 disk controller the table will be written to the disk drive. This table 
186 should never be erased unless the drive is broken or format is run 
eH again. 
133 NOTE this is only for the RQDX3 disk controller and NOT for the RQOX1/e. 
ee Unit Information Tables listed: 
i93 Enter UIT: 
135 UIT Drive Name 
196 0: RO51 
197 1: RDS2 part # 30-21721-02 (1 light on front panel) 
198 2: RD52 part # 30-23227-02 (2 lights on front panel) 
199 3: RDS5S3 

4: RD31 
201 5: RD54 
202 6: 
203 7: 
oos 10: 
$39 2.4 PROGRAM MESSAGES AND FORMAT COMPLETION 
208 When the format finally starts a “Format Begun” maneage will 
209 appear and in the end a “Format Complete” mess will appear. 
210 There may be 60+ minutes between the mooangee. f the extented 
211 messages are allowed 3 "Verification Pass XXXXXX Begun” me Ss 
212 may appear. Theses messages tell when the controller checks 
213 blocks for bad spots in the disk surface. These passes take several 
214 minutes each and touch all the cylinders on the drive. At the end of 
215 the format if extended messages are on a table will be printed out 
216 reporting the results of the format. Ceeveety are ore several bad 
217 ts on a disk. This is very common and is NOT a mistake. These bad 
218 blocks are revectored to new areas on the disk. If the manufactures 
219 bad block information is used which is ussually the case. There will 
220 only be 1 verification pass. After the drive formats the autosizer 
221 program will be run again. This will park the heads on the inner most 
222 cylinder. Some manufactures have a perking area where the heads are 
223 p aced before the drive is physically moved or shipped to the customer. 
224 f you plan on moving your system you should backup your system and 
225 run the formatter to put the heads on the parking area. This will 
see help prevent damage to the heads and formatted data surfaces. 
see Completion Report: 
230 XXX Revectored LBNs 
231 xxx Primary revectored LBNs 
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SEQ 0006 
232 xxx Secundary/tert lary revectored LBNs 
233 XXX Bad Blocks in the RCT area due to data errors 
234 xxx Bad Blocks in the DBN area due to date errors 
235 XXX Bad Blocks in the XBN area due to data errors 
236 xxx Blocks retired on check pass 
237 FCT was not used 
or Format Completed 
240 RQDX Drive xxxx finished 
Pot PLEASE wait .... Parking drive heads 
243 gene aborted for this unit 
244 RQC EOP 1 
ay O Cumulative errors 
247 Note that every time the disk formats successfully the program 
248 drops the UNIT. This is purposesly done so one doesn't reformat 
249 it twice. 
= 
252 RX33 diskette formatting is a little varied in that several extra 
253 questions will be asked. These questions where installed mainly to 
254 protect the person ory ine to format a diskette on the same drive as 
255 their boot media. If the drive doing the formatting is not the boot 
S38 drive then please ignore the warnings. 
258 WARNING - Remove boot diskette if in drive. 
oH Insert a diskette to be formatted & press <RETURN>. 
261 Format Complete 
262 FCT was not used 
eo; Format completed 
or Do you want to format another diskette? 
oH If boot drive, reinsert boot diskette & press <RETURN>. 
269 RQDX Drive xxxx finished 
270 pees aborted for this unit 
271 RQ@C EOP i 
272 © Cumulative errors 
273 
274 
275 2.5 EXECUTION TIME ; 
276 The execution time for this di stic varies greatly according 
e7? to the size of the drive being formatted. If an error in the 
278 drive configuration or state such as a write protect switch 
279 being on, an error will occur right after all the questions have 
280 been answered. If there are no errors the formatter will take 
281 between 5 minutes to 60 minutes depending on the drive being formatted. 
282 A RDS1 takes between 10 minutes to forma ing on the way 
285 questions are answered. A RDS2 take between 10 & 25 minutes to format 
284 and a RDS3 a very long time to format. The program checks continuously 
285 to make sure the controller is still working. If no pr s is 
286 indicated by the progress indicator a timeout error will occur. If 
287 the disk controller goes off line for some unapparent reason the 
288 formatter will know. Either way if one checks the light on the 
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error # 


1,HRDO 


2,DF3 


3,SFTO 


4,DFe 


5,DF1 


6,SFT1 


7,DF4 


8,SF100 ;Unexpected interrupt 





SEQ 0007 


Winchester to see if it is lite or check the READY light of the drive 
for a flickeri light, this will tell the user that t formatter is 
working. When the formatter completes a “Format complete” message 
will appear on the terminal. 


3. ERRORS 


There are pom | types of errors possible while formatting a drive. 
First the system has to be configured right. The drives have to be 
jumpered right along with the disk controller. If you get an error 
read the entire error message carefully. See if there is something 
simple wrong such as loss and nese eres drives before calling FS. 
This is ussually the case uy sate the drive or controller 
break. So check the cables, check the jumpers, try several times and 
if you still can’t format then call Field Service. 


Comment Problem 
sunkown response 
Not a DUP standard local program or Data Error in local program 
execution. 


;Fatal DUP type returned ’ 

Error with Format program check detailed error message more then 
likely this will be a drive error or drive configuration error. 

If the detailed message has a GET STATUS error. This means that the 
drive ee asked to format had the wrong status. Example offline,write 
protected, RX50 instead of an RDxx, power plug us loose, jumpers are 


wrong. 


;Can't do remote programs” 
Wrong controller or bad microcode controller error. 


;“already active will do an ABORT cmd” 

Wrong controller or bad microcode controller error. The controller 
was expected to be in an idle state but was found in an active state. 
Try again and if still there check for ECOs and new Microcode. 


swrong step bit set after eet : 
ontroller initialazation error. Controller is broken or at 
wrong address and something is in its place. 


;controller timeout during hard init ; 
Controller error, controller is slow or it can’t interrupt the 
Q bus. Controller is dead. 


wr model #,wrong controller 

This is not really an error. You are using the wrong formatter 
rogram to for the wrong disk controller. It still might work 
t no guarantees. 


;NXM trap at controller IP address 
Wrong configuration address of the controller check for 


wrong jumper settings. 
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9,D0Fi2 


10,DF11 


11,0F135 


12,DF14 


SEQ 0008 


Something in system interrupting or iate interrupt. This 
could be the system clock or an oo from an IO port. 
If the interrupt is at address 4,10 pr le a software error 


Try again. 


;Fatal SA error 
Controller crashed check detailed error message either dead 
controller or configuration error. 


;Bad response packet 
Inapropriate command or soft controller error check 
detail message for more info. 


;No progress shown after cmd timeout 

The controller didn't indicate progress which means that it is 
work ing very slow or is stuck. Leave the preerse running for a 
couple minutes. If this message repeats then the drive is likely 
broken. If you just get 1 mess it is possible the controller 
took to long to revector a block. This is probable 4 drive error 
or a drive with many revector blocks. 


;No teres after get dust status command controller dead 

The controller got lost. The program running in the controller 

ad out of synch with the host program. This could mean several | 

hings. Check for a loose controller board loose cables. Try running 

. in — the system. If you still get the error check 
controller. 


4. PROGRAM DESIGN AND FLOW 


The program is kind of simple. There is only 1 command ring and 
1 response ring. For every command send there is expected 1 response. 
If the command sent times out a "Get DUST Status” command is sent to 
check on the controllers progress. This usually happens when the actual 
format is being done. The rest of the commands pass information 
back and forth from the user to the controller and back with out ever 
timing out. This program is written gecord ise to UQSSP and DUP specs. 
This specs can be acquired from NEWTON: :ARCHSFILES:. At the start of the 
program the INIT sequence brings the controller into the hi r protocol 
state of apoth c . Once initialized the controller executed 
= DUST STATUS command to make sure the controller is in an Idle 
state. 


If idle which it should be the program asks for a - ram name to run. 
The EXECUTE LOCAL PROGRAM command is executed whic ould start the 
program into the DUP a ohoe loop. This dialog is described in the DUP 
spec. Here several SEND DATA and RECEIVE DATA commands are executed to 
ask questions and supply information on the success and completion of 


the local FORMAT program running in the RQDX3. 


A pass will occur when the formatter has completed formatting 
all the logical units. 


5.0 GLOSSARY 
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)s 


SEQ 0009 


ZRQ@CcO follows the module name format described in the 
XXDP Programmer's Guide. 


RQ--- Identifies the hardware and thus the module. 


--C-- Distiguishes between two or more different 
diagnostics for the same generic device. The 
sequence A, B, C, ETC. must be used for 
each additional diagnostic. 


---c- Specifies the module revision. 
----Q0 Specifies the number of patches. 
7.0 BIBLIOGRAPHY 


UQSSP (NEWTON: : ARCHS$FILES: ) 

MSCP CNEWTON: : ARCH$FILES: ) 

DUP (NEWTON: :ARCHSFILES: ) 

DRS programmers manual (JON: :disk$user1:[di Pegged f 
XXDP programmer guide (JON: :disk$user1:[diaglib.xxdp]) 


8.0 REVISION HISTORY 


Revision B contains an autosizing routine which will 

size the drive instead of having the user pick the drive table. 
This will keep people out of the 7 and lower the changes 

of loose cables etc. Also added a AUTO mode which allows no manual 
interventions. Set the default p-table to format drive 0-3. 
Since floppies are always the last drive in the system this is | 
gauranteed to format all the drive in the system and error when it 
gets to the floppy. 


Revision C contains several changes. First RX33,RD31,R054 support was 
dded. The RX33 boot device questions where added. The autosizer was 
fixed to also size for floppies. The Autosizer errors are now reported 
to the host along with what drives are located on what units and there 
drive size or floppy type. The default question in manual mode was 
changed so that if an FCT (factory control table) is not present 
"Bad Block Information” it will not continue on. This was changed for 
all drives except the RDS1 which doesn’t have a FCT table. Also there 
was a small change to the autosizer which affects version C1 hardware. 
etched RQDX3 boards specially the ones without the LUN ECO. The autosizer 
now run in the beginning and the end. A head parking feature was added 
so that RD31 and RD32 heads would be parked in the inner most cylinder 
upon completion of the program. The autosizer utility was updated to 
displays a little more information. 





1 
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SEQ 0010 
454 
455 .MCALL SVC 
456 000000 
457 000000 .ENABLE ABS,AMA 
458 000052 .=52 : 
459 000052 piso .word bitli2 sextended monitor in XXDP 
461 002000 BGNMOD MOD1 
462 002000 POINTER BGNDU,BGNCLN,BGNPROT , BGNSETUP 
463 002000 HEADER se C,0,600,0 
464 002122 DISPATCH 
465 002126 DESCRIPT tRQDX3 Format\Park Disk Utilit 


aay 002166 DEVTYPE <RDS1,RD52,RD53,RD31,RD54,RX335 Ses Answer "Y" to "Change HW (L) 2?” ##*> 
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469 002274 
470 002276 172150 
471 002300 000154 
472 002302 


000000 
473 002304 030071 
474 002306 100000 
pte 002310 


BGNHW DFPTBL 
. WORD 
. WORD 
. WORD 
. WORD 
.word 


172150 
154 


000000 
012345. 
00000 


1 


SEQ 0011 


;1P address 

;Vector address 

sunit zero as defualt drive 

sserial n r 

;auto sizer="yes", warning="no”" or don’t continue 





_———_—_—_———————_ oo 
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SEQ 0012 
478 002310 EQUALS 
; BIT DIFINITIONS 
100000 BITi5== 100000 
00rd BIT14== 40000 
0200 BIT13== 20000 
010000 BIT12== 10000 
BIT11i== 4000 
BIT10== 2000 
001000 BITO9== 1000 
BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
BITO2== 4 
000002 BITO1== 
000001 BITOO== 1 
001000 BIT9== BITO9 
BIT8== BITO8 
000200 BIT7== BITO7 
000100 BIT6== BIT06 
BITS== BITOS 
000020 BIT4== BIT04 
000010 BIT3== BITOS 
BIT2== BITO2 
000002 BITi== BITO1 
000001 BITO== BITOO 


EVENT FLAG DEFINITIONS 
;  €F32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


; ; BIT POSITION IN SECOND STATUS WORD 
000040 EF .START== 32. : (100000) START COMMAND WAS ISSUED 
000037 EF_RESTART== 31. : (040000) RESTART COMMAND WAS ISSUED 
000036 EF_CONTINUE== 30. : (020000) CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. : (010000) A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28. : €004000) A POWER-FAIL/POWER-UP OCCURRED 
; PRIORITY LEVEL DEFINITIONS 
000340 PRIO7== 340 
000300 PRI06== 300 
000240 PRIOS== 240 
000200 PRI04== 200 
000140 PRIO3== 140 
000100 PRI02== 100 
000040 PRIOi== 40 
000000 PRIO0== 0 


;OPERATOR FLAG BITS 
000004 EVL== 4 





ee ed ele 
MH OWOAICUS WFO 


000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 


040000 
100000 


000010 
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LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 
BOE== 
PNT == 1000 
PRI== 


HOE == 100000 
.sbttl Literals 


; Mask values to mask out specified flags 


UITothr = 10 


Trh~ 
a-0- 
io) 


f 
a 


MMUWUIP Or 


type = 177760 
msgnbr = 170000 


;* 
sAuto sizer literals 


; Interrupt Service Routines and Prioritv Levels 


f UIT doesn't exist 


;Maximum Number of drives 
; DUP connection ID 

;model number for RQDX1 
;mode 1 number for RQDX3 
:stand-alone modifier 

r of retries UDC 


/. 2 
MAIN. 


Literals 
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i $ude = 100002 3 

i $clk = 100006 3 

i $sec = 100016 ; Pointer 

= 8) ; Allow An 

ps7 2 340 ; Inhibit 
; CSRs 

rwu$pll = 140002 

wsfpl = 140004 

r$fps = 140006 

r$dat = 140010 

r$cm™d = 140012 

wsdet = 140020 

wscmd = 140022 

; RECEIVE DATA ASCII reply message types: 
a.typ = 20 : 
a.que = 1*.a.typ ; 
a.def = 2*.a.typ ; 
a.inf = 3*.a.typ F 
a.ter = 4x.a.typ F 
a.fat = 5*.a.typ ; 
; RECEIVE DATA binary message types. 
.b.spl = 6*.a.typ ; 
; Status Codes returned by SIZER (Success 
erudon = 1 ; 

eruint = 2 ; 

ersek0O = 3 


op.res = 0 : 
op.dd = 1 : 
op.rd = 3 : 
op.sil = 5 ; 
op. sol = 7 ; 
op.srd = 44 ; 
op. srx = ano ; 
op.srp = ; 
rd.mode = 300 ; 


eee eae aaa 


; Pointer to UDC interrupt handier 
Pointer to Clock interrupt handler 


to Sector Done Interrupt hendl:r 
¥ Interrupts 
nterrupts 


; ASCII Message Type Multiplier 


Question 


; Default question 
; Information 
; Termination 
; Fatal error 


Special 
is zero) 


UDC Never Done 
UDC Never Interrupted 


; Couldn't Restore to Cyl 0 


Reset 9224 
Deselect Drive 
Restore Drive 


Select Floppy Drive 
Set Register Pointer 
RD Mode 
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SEQ 0015 

Macro Definitions 

573 .sbttl Macro Definitions 

574 

376 

rah ; Execute a GET DUST STATUS command and the check the response. 

579 

580 

581 000000 A=0 

582 000001 B=1 

583 -MACRO GETDUST ;Execute a GET DUST STATUS command 

584 B=B-1 ;increment the CRN number 

585 gdstmp \B :call variable B as if it where a number (\) 

586 . ENDM 

587 

588 -MACRO GDSTMP 8B 

589 list 

590 GDS'B: bit #bit15,cmdrng+2 qi ownership of ring make sure - own it 

591 bone GDS'B if we don’t own it wait un til we 

592 MOv #14. ,cmdlen sloed lenght of packet to “ ion 

593 movb #0,cmdlen+2 i load ood omy ty type and credit 

594 movb #dup. id, cmdlen+3 connection ID 

595 inc cmdpak — new CRN 

596 clr cmdpak +2 

597 clr cmdpak +4 

598 clr cmdpak +6 

599 mov #op .qds ,cmdpak + 10 ;load up opcode 

oe clr cmdpak «12 no nedi flare 

602 Mov #RFD'B,@vector ;New vector place 

603 mov é¢rsppak ,rsprng ;load response packet area into ring 

604 mov Scamp: ;load command packet area into ring 

605 Mov #1 R +2 -Port ownership bit. 

606 mov #bit15, CMDRNG+2 

oes jsr pc ,POLLWT :Go to poll and wait routine. 

ove ee eae iddaiooiotoiitok tok doit toto tok dob tok tdi ik bik ee ee EEE EE 

611 RFD'B: ;Intr to here. 

612 add #6,Sp -fix stack for interrupt (4), pollwt subrtn (2) 

613 MOV #intsrv,@vector ; Change vector 

614 jsr pc , RSPCHK :Go to routine that will check on 

615 ;the response recvd from the mut. 

616 sit will check the cmd ref 

617 snum, the endcode and status. 

618 nlist 

619 . ENDM 
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— SEQ 0016 

Macro Definitions 

621 

Fe 

os ; Execute an ABORT command and then checks the response. 

626 

627 

628 .MACRO ABRT ;Execute an ABORT command 

34 B=B+1 ;increment the CRN number 

6 abrttmp \B :call variable B as if it where a number (\) 

631 . ENDM 

632 

633 -MACRO ABRTTMP 6B 

634 list 

635 ABRT'B: bit #bit15,cmdrng+2 stest ouneraitio of ring make sure we own it 

636 bne ABRT‘'B if we don’t own it wait until we do 

637 MOV ,cmdlen :losd lenght of packet to be send 

638 movb #0,cmdlen+2 ond ong type and credit 

639 movb #dup. id, cmdlen+3 ; oon connection ID 

640 inc cmdpak ;load new CRN 

641 clr cmdpak +2 

642 clr cmdpak +4 

643 clr cmdpak +6 

644 MOV #op. abrt , cmdpak +10 ; load up opcode 

oe3 clr cmdpak +12 NO medi? lore 

647 Mov #RFD'B,@vector ;New vector place 

648 mov #rsppak , rsprng ; load response packet area into ring 

649 MOV #cmdpak , cmdr ;load command packet area into ring 

6 Mov #140000 RSPRNG +2 ;Port ownership bit. 

651 mov #bit15,CMDRNG+2 

Ose jsr pc ,POLLWT ;Go to poll and wait routine. 

oxe adda oiidok tadok tok doioiioi toot toi toto iotot tok tk atk tt tk de oe oe 

656 RFD'B: ,intr to here. 

657 add #6,sp :fix stack for interrupt (4), pollwt subrtn (2) 

6 Mov #intsrv,@vector ; Change vector 

659 jsr pe , RSPCHK :Go to routine that will check on 

660 ;the response recvd f-om the mut. 

661 ;it will check the cd ref 

662 snum, the endcode ano status. 

663 -nlist 

664 . ENDM 








———- 
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*. . 2 SEQ 00 1 7 
Macro Definitions 
666 
C68 
rH : Execute a Send data cmd in dup and then check the response for the proper info 
€72 
673 .MACRO SENDDAT SPLACE,SBYTCN ;Execute a Send Data command 
674 B=B+1 ; increment the CRN number 
675 sendtmp \B,SPlace,Sbytcn :call variable A,B as if it where a number (\) 
er7 _ 
os .MACRO og B,Splace,Sbytcnt 
ist 

680 SOT‘B: bit #bit15,cmdrng+2 ‘beet ane eie of ring make sure - own it 
681 bne SDT'B we don't own it wait un til we 
682 MOV #34 ,cmdlen 108d a ee of fo yon. to = a" 
683 movb #0,cmdlen+2 one ong ty and credit 

movb #dup.id,cmdlen+3 ; sss silent ton ID 
685 ine c ;load new CRN 

clr cmdpak +2 
687 clr cmdpak +4 

clr cmdpak +6 
689 Mov #op.sen,cmdpak + 10 ;load up opcode 
90 clr cmdpak +12 no seat lero 
691 mov Sbytcnt,cmdpak +14 
692 clr cmdpak +16 : 
693 MOV pv aida sload address of buffer describtor 
694 clr cmdpak +22 
695 clr cmdpak +24 
696 clr cmdpak +26 
697 clr cmdpak +30 
eae clr cmdpak +32 
00 Mov #RFD'B,@vector ;New vector place 
701 mov #rsppak ,rsprng ;load response packet area into ring 
70 mov $c ; ;load command packet area into ring 
79 mov #1 Rk +2 ;Port ownership bit. 
704 mov #bit15, CMDRNG+2 ' 
te2 jsr pc, POLLWT ;Go to poll and wait routine. 
ad saadonioioaiueiiainiaiiaotiioiiiglidaiiui iio taiotok tote tit tk ttt ttt tk 
709 RFD'B: ;Intr to here. 
710 add #6, Sp fix stack for interrupt (4), pollwt subrtn (2) 
711 MOV #intsrv,avector ; Change vector 
712 jsr pc , RSPCHK :Go to routine that will check on 
713 sthe response recvd from the mut. 
714 :it will check the cmd ref 
715 num, the endcode and status. 
716 nlist 
717 .ENDM 








- 
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SEQ 0018 


719 

8 

168 ; Execute a Receive Data command and the check the response. 

135 

726 -MACRO RECVDAT Rplace,Rbytcnt ;Execute a Send Data command 

727 B=B+l ;increment the CRN number 

728 recvtmp \B,Rplace,Rbytcnt :call variable A,B as if it where a number (\) 
1 .ENDM 

731 .MACRO RECVTMP B,RPlace,Rbytcnt 

732 -list 

733 RCD'B: bit #bit1S,cmdrng+2 ;test ownership of ring make sure we own it 
734 bne RCD‘B ;if we ‘'t own it wait until we do 
735 mov #34,cmdlen ;load lenght of packet to be send 
736 movb #0,cmdlen+2 ; load msg type and credit 

737 movb #dup.id,cmdlen+3 ;load DUP connection ID 

738 inc cmdpak ;load new CRN 

739 clr cmdpak +2 

740 clr cmdpak +4 

741 clr cmdpak + 

742 mov #op.rec,cmdpak +10 ;load up opcode 

743 clr cmdpak +12 sno modifiers 

44 Mov Rboytcnt ,cmdpak +14 

745 clr cmdpak +16 , 

746 mov Rplace,cmdpak +20 :load address of buffer describtor 
747 clr cmdpak + 

748 clr cmdpak +24 

749 clr cmdpak + 

50 clr cmdpak +30 

Lee clr cmdpak +32 

753 mov #RFD'B,a@vector ;New vector place ; : 
754 mov #rsppak ,rsprng ;load response packet area into ring 
755 Mov #cmdpak , ; load command packet area into ring 
56 mov #140000 ,R +2 :Port ownership bit. 

757 MOV #b i t15,CMDRNG+2 ; : 

Ut jsr pc, POLL ;Go to poll and wait routine. 

Ls eooOde ea idokiiai gogo iiokaoioaiiiiioioiiok dak ici ttaioiiotatob tot iok dot ti tt ttt 

762 RFO'B: ;Intr to here. 

763 add #6, Sp :fix stack for interrupt (4), pollwt subrtn (2) 
764 MOV #intsrv,a@vector ;Change vector , 

765 jsr pe, HIK ;Go to routine that will check on 
766 sthe response recvd from the mut. 
767 ;it will check the cmd ref 

768 snum, the endcode and status. 

769 nlist 

770 .ENDM 








a, 


.MAIN. MACRO VO5S.03 Tuesday 10-Jun-86 13:21 Page 12 
Macro Definitions 





SEQ 0019 


772 
773 
774 s+ 
he ; Execute a Execute Local Program command and the check the response. 
777 
778 
779 .MACRO EXLCPRG Enamadr ;Execute a Send Data command 
780 B=B+1 ;increment the CRN number 
781 elptmp \B,Enamadr :call variable A,B as if it where a number (\) 
185 ENO 
784 .MACRO ELPTMP' 8B,Enemadr 
785 -list 
786 ELP‘'B: bit #bit15,cmdrng+2 ;test ownership of ring make sure we own it 
787 bne ELP'B ;if we don’t own it wait until we do 
788 mov #22 ,cmdlen ;load lenght of packet to be send 
789 movb #0,cmdlen+2 ; load msg type and credit 
790 movo #dup.id,cmdlen+3 ; load connection ID 
791 inc cmdpak ;load new CRN 
792 clr cmdpak +2 
793 clr cmdpak +4 
794 clr cmdpak +6 
795 mov #op.elp,cmdpak +10 ;load up opcode 
796 Mov #stdaln,cmdpak +12 ;stand alone modifier 
797 mov rd ;6 letters transfer 
798 mov #comdpak+14,ri oars ng address to place program name 
799 Mov #Enamadr ,r ;start of Program Name 
rfdj'B: movb Cr2)+,C€ri)+ s;add 2 to bycnt then store 
rst sob r0,r dj' 
803 mov #RFD'B,@vector ;New vector place ; 
mov #rsppak ,rsprng ;load response packet area into ring 
805 Mov prot :load command packet area into ring 
806 mov #140000 ,R +2 ;Port ownership bit. 
807 mov #b it15 ,CMDRNG+2 
aos jsr pc, POLLWT ;Go to poll and wait routine. 
aif duigggaaa oa a iiguioi io ioaoliiiokoiiidaoiiai iio iaitoiototactoiiok iti k ttt tok 
812 RFD'B: s;Intr to here. 
813 add #6,Sp -fix stack for interrupt (4), pollwt subrtn (2) 
814 mov #intsrv,a@vector ;Change vector 
815 jsr pc , RSPCHK :Go to routine that will check on 
816 ;the response recvd from the mut. 
817 ;it will check the cmd ref 
818 snum, the endcode and status. 
819 nlist 
820 . ENDM 
821 
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a SEQ 0020 
Macro Definitions 

823 

335 

ass ; Execute a Eexcute Supplied Program command and the check the response. 

339 

830 -MACRO EXCSUPPRG ;Execute a Supplied program command 

831 B=B+1 increment the CRN number 

832 contep \B seal variable A,B as if it where e number (\) 

833 d 

834 

835 -MACRO ESPTMP 8B 

836 list 

837 ESP’B: bit #bit15,cmdrng+2 stest ownership of ring make sure we own it 

838 bne ESP'B if we don't own it wait until we do 

839 mov #50,cmdlen load —— of packet to be send 

840 movb #0 ,cmdlen+2 ; load oy pe and credit value 

841 movb #dup.id,cmdlen+3 ;load D ceaation ID 

842 clr CMDpak +2 

843 elr CMDpak +4 

B44 clr CMDpak 

845 MOV #op.esp, CMDpak +10 ;load up 
mov #0, CMDpak+i2 sno stand alone modifier 

of! oo <a -autosz>,cmdpak+14 ;load length of prg into buffer 
clr cmdpak + 

849 i cpaemen? <enenak +e? ;starting address of downline load prg 
cir MDpak + 

851 clr CMDpak +24 

852 clr CMDpak +26 

853 clr CMDpak + 

854 clr CMDpak +32 

855 clr CMDpak +34 soverlay buffer descriptor 

856 clr CMDpak +36 

857 clr CMDpak +40 
clr CMDpak +42 

859 clr Po se 

860 clr ees os 

861 Mov ‘B,avector ;New vector place 

862 MOV érsppak ,rsprng ;load response packet area into ring 

863 mov beats: £007 ;load command packet area into ring 

864 mov #14 RSPRNC + :Port ownership bit. 

865 mov $b it15, CMDRNG+2 

866 isr pc ,POLLWT ;Go to poll and wait routine. 

867 saenaescecsscenessaecasaecasssseseensteneraessnassssseassesssnseeses 

868 RFD'B: ;Intr to here. 

869 add #6,Sp -fix stack for interrupt (4), pollwt subrtn (2) 

870 r Mov #intsrv,avector ;Chanee vector 

871 jsr pc ,RSPCHK :Go ts routine that will check on 

872 sthe re response recvd from the mut. 

873 nlist sit will check the cmd ref 

ors .ENDM snum, the endcode and status. 
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SEQ 0021 
Word & Buffer defintions 
ah .sbttl Word & Buffer defintions 
879 002310 000000 LOGUNIT: .WORD ;logunit number 
880 002312 000000 LOCAL: .WORD : 
881 00. 000000 PLOC: . WORD 3p table address 
882 002316 900000 tbl: . WORD 7p table address 
883 002320 000000 Tadr: .word 
oes 002322 000000 BOOT: -word s;bootable medi 
886 3+ 
887 ; These next locations may be altered to omety the correct IP & SA address 
888 ; If only 1 jumper is to placed on the he locations should be filled 
oS5 ; with addresses 177770 and 177772 respectively. 
891 
892 002324 000000 IPreg: .WORD 0 ;Address of the SA and IP registers 
893 002326 000000 Vector: .word 0 
894 0023 000000 Unit .word 0O ;unit number 
895 002332 123 .word 123 
896 0023 177777 sernbr: .word 177777 ;serial number 
897 002336 UNTflgs: .word :flags, bitiS =auto mode 
898 sbitL3 =unknown model number ,bitl2 =park heads only 
899 002340 000000 mdlnbr: .word 0 ;model number of the controller as returned in step 4 
900 002342 000000 mcdnbr: .word 0 smicorcode number of the controller as returned in step 4 
Sos 2 000000 UIN: word 0 this is a pointer to the correct UIT table 
903 002 RSP1: .BLKW 2 ;Response packet length 
002352 RSPPAK: .BLKW 30. ;Response packet 
905 002 CMDL .BLKW 2 ;Command packet length 
one 002452 CMDPAK: .BLKW 20. ;Command packet 
908 002522 000000 CINTR: .WORD O sCommand interrupt indicator 
002524 000000 INTR: .WORD 0 ;Response interrupt indicator 
910 002526 002352 RSPRNG: .word  rsppak ;Message ring 
911 002530 14 word 140000 
912 002532 002452 CMDRNG: .word cmdpak ;Command ring 
913 0025 1 word 100000 
He 0025 177777 -1 
916 002 000000 LSTCRN: .word 0 ;storage for unreturned command CRN 
917 002542 000000 ST .word 0 ;storage for unreturned command opcode 
918 002544 000000 LSTVCT: .word 0 ;storage for unreturned command intterupt vector address 
919 002546 000000 LOPRGI: .word 0 sLow word of the progress indicator 
ose 002550 000000 HIPRGI: .word 0 ;sHigh word of progress indicator 
922 Nlist bin ;date area 
1 $ 002552 DATARE: .asciz /%A1234567890123456 7890123456 7890123456 7890123456 7890123456 7890123456 7890123456 7890/ 
even 
925 002676 PRGnam: .ascii /FORMAT/ saddress of local format program name 
926 002704 ‘byte 0 snull for asciz 
927 002705 XBN: ASCIZ /0123456789/ 
928 002720 ODBN: ASCIZ /0123456789/ 
929 002733 LBN: ASCIZ /0123456789/ 
30 002746 RBN: SCIZ /0123456789/ 
even 


-Llist bin 
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SEQ 0022 


934 
on -sbttl DISK UNIT INFORMATION TABLES 
937 ; ‘in Tol Leming tables are made up of disk drive parameters which will be 
938 ; feed to the FORMAT controller Treai program which will then use the 
oan ; information to format the drives. 
941 002776 =2776 
942 002776 177777 .word -1 sback door for custom table build 
943 003000 =3000 
944 
945 ;¢ 
ro ; Unit Information table RD51 Seagate 
948 
949 
950 003000 UITO: 
951 ;/*Top of Unit Information table (UIT) 
952 00 000071 word 57. ;/XBN size (lo wrd) XBN size = 3#(1+sectors_per_track )/ 
953 003002 .word 0 ; /XBN size Chi wrd)/ 
954 00 000127 .worc 87. ;/DBN size (lo wrd)/ 
955 003 .word 0 ;/DBN size Chi wrd)/ 
956 003010 052360 word 21744. ;/LBN size Clo wrd)/ 
957 003012 word 0 ;/LBN size Chi wrd)/ 
003014 000220 word 144. ;/RBN size (lo wrd)/ 
959 003016 word 0 ;/RBN size Chi wrd)/ 
003020 000022 word 18. ;/Sectors per track/ 
961 003022 000004 word 4. :/Surfaces per unit/ 
962 003024 000462 word 306. ;/Cylinders per unit/ 
963 003026 000156 word i110. ;/Write precomp cylinder/ 
003030 000462 word 306. ./Reduce write current cylinder / 
965 003032 000000 word 0 ;/Seek Rate 
003034 000001 word 1 ;/Use CRC or ECC/ 
967 003036 000044 word 36. ;/RCT Size/ 
968 003040 word :/Number of RCT copies/ 
969 003042 0063 word +tB0100000000110011 ;tH4033;/Media Cio wrd)/ 
970 003044 022544 word tB0010010101100100 ; ;tH2564;/Media (hi wrd)/ 
971 003046 000002 word 2 /Sector Interleave (n-to-1)/ 
972 00 000002 word 2 ;/Surface to Surface Skew/ 
973 003052 900001 word 1 ;/Cylinder to Cylinder Skew/ 
974 00350 000020 word 16 ;/Gap size 0/ 
$75 003056 000020 word 16 ;/Gap size 1/ 
976 003 000005 word ;/Gap size 2/ 
977 00 000020 word 16 ; /Gap size 3/ 
978 003064 000015 word 13. ;/Sync size/ 
979 00 000001 word li ; 7MSCP cylinders per Unit/ 
980 003070 000001 word 1 ; /MSCP soups per Cylinder/ 
981 003072 000001 word li MSCP Tracks per Group/ 
982 003074 000002 word 2 ;/Max allowed bad spots per surface/ 
983 003076 000151 word 105. ;/Bad spot tolerance ce (bytes)/ 
984 0031 000463 word 307. ;/auto recal cylinder 
985 003102 000463 .word 307. ;/auto recal cylinder 
986 000104 UITsiz = .-UITO 
987 003104 .=3000+ UITsiz 
988 
989 
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SEQ 0023 
DISK UNIT INFORMATION TABLES 
p<. ; Unit Information table RDS2 Quantum drive 
993 
994 
995 003104 UIT1: 
996 ;/*Top of Unit Information table (UIT) 
997 003104 000066 .word 54. ;/XBN size (lo wrd) XBN size = 3#(1+sectors_per_track )/ 
998 003106 000000 .word 0O ;/XBN size Chi wrd)/ 
999 003110 000122 .word 82. ;/DBN size Clo wrd)/ 
1000 003112 900000 word 0 ;/DBN size Chi wrd)/ 
1001 003114 166140 .word 60512. ;/LBN size (lo wrd)/ 
1002 003116 000000 .word OQ ;/LBN size Chi wrd)/ 
1003 000250 .word 168. ;/RBN size (lo wrd)/ 
1004 003122 900000 .word 0 ;/RBN size Chi wrd)/ 
1005 003124 000021 .word 17. ;/Sectors per track/ 
1006 003126 000010 .word 8. ;/Surfaces per unit/ 
1007 003130 001000 .word 512. ;/Cylinders per unit/ 
1008 003132 000400 .word 256. ;/Write precomp cylinder/ 
1009 0031 001000 .word 512. ;/Reduce write current cylinder / 
1010 003136 000000 .word 0 ;/Seek Rate/ 
1011 003140 000001 .word 1 ;/Use CRC or ECC/ 
1012 003142 000004 .word 4 ;/RCT Size/ 
1013 003144 000010 .word 8. ;/Number_of RCT copies/ 
1014 003146 040064 .word +B0100000000110100 ;tH4034;/Media (lo wrd)/ 
1015 003150 022544 .word  %80010010101100100 ;tH2564;/Media (hi wrd)/ 
1016 003152 000001 .word 1 ;/Sector Interleave (n-to-1)/ 
1017 003154 000002 .word 2 ;/Surface to Surface Skew/ 
1018 003156 000015 .word 13. ;/Cylinder to Cylinder Skew/ 
1019 003160 000020 word 16. ;/Gap size 0/ 
1020 003162 000020 .word 16. ;/Gap size 1/ 
1021 003164 000005 .word 5. ;/Gap size 2/ 
1022 003166 000050 word 40. ;/Gap size 3/ 
1023 003170 000015 .word 13. ;/Syne size/ 
1024 003172 000001 .word 1 ;/MSCP cylinders per Unit/ 
1025 003174 000001 .word 1 ;/MSCP Gr per Cylinder/ 
1026 003176 000001 .word i ;/MSCP Tracks per Group/ 
1027 00 000012 .word 10. ;/Max allowed bad spots per surface/ 
1028 003202 000151 .word 105. ;/Bad spot tolerance (bytes)/ 
1029 003204 001000 .word 5i2. ;/auto recal cylinder 
eet 003206 001000 .word 512. ;/auto recal cylinder 
1032 003210 .=3000+UITsiz+UITsiz 
1033 
1034 
1035 + 
10es ; Unit Information table RDS2 Atasi 
1038 
1039 
1040 003210 UIT2: 
1041 ;/#Top of Unit Information table (UIT) 
1042 003210 000066 word 54. ;/XBN size (lo wrd) XBN size = 3*(1+sectors_per_track )/ 
1043 003212 000000 .word 0O ;/XBN size Chi wrd)/ 
1044 003214 000101 .word 65. ;/DBN size (lo wrd)/ 
1045 003216 000000 .word 0 ;/DBN size Chi wrd)/ 
046 003220 166140 .word 60512. ;/LBN size (lo wrd)/ 


1047 003222 000000 .word 0O ;/LBN size Chi wrd)/ 
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SEQ 0024 


1048 003224 000250 .word 168. ;/RBN size (lo wrd)/ 
1049 003226 000000 .word 0 ;/RBN size Chi wrd)/ 
1050 003230 000021 .word 17. ;/Sectors per track/ 
1051 003232 000007 .word 7. ;/Surfaces per unit/ 
1052 003234 001205 -word 645. ;/Cylinders per unit/ 
1053 003236 000500 -word 320. ;/Write precomp cylinder/ 
1054 003240 001205 .word 645. ;/Reduce write current cylinder / 
1055 003242 000000 .word 0 ;/Seek Rate/ 
1056 003244 000001 .word 1 ;/Use CRC or ECC/ 
1057 003246 000004 .word 4 ;/RCT Size/ 
1058 003250 000010 .word 8. ; r_of RCT copies/ 
1059 003252 040064 .word +B0100000000110100 ;tH4034;/Media (Clo wrd)/ 
1060 003 022544 .word +B0010010101100100 ;tH2564;/Media (hi wrd)/ 
1061 003256 900001 .word 1 ;/Sector Interleave (n-to-1)/ 
1062 003260 000002 .word 2 ;/Surface to Surface Skew/ 
1063 003262 000007 .word 7. ;/Cylinder to Cylinder Skew/ 
1064 003264 000020 .word 16. ;/Gap size 0/ 
1065 003266 000020 .word 16. ;/Gap size 1/ 
1066 003270 9000005 .word 5. ;/Gap size 2/ 
1067 003272 000050 .word 40. ;/Gap size 3/ 
1068 003274 000015 .word 13. ;/Synec size/ 
1069 003276 000001 .word 1 ;/MSCP cylinders per Unit/ 
1070 003300 000001 .word 1 ;/MSCP Gr per Cylinder/ 
1071 003302 000001 .word 1 ;/MSCP Tracks per Group/ 
1072 003304 000024 .word 20. ;/Max allowed bad spots per surface/ 
1073 003306 000151 .word 105. ;/Bad spot tolerance (bytes)/ 
1074 003310 001206 .word 646. ;/auto recal cylinder 
1802 003312 001206 .word 646. ;/auto recal cylinder 
ior 4 003314 .=3000+UITsiz+UITsiz+UITsiz 
1079 4 
+285 ; Unit Information table RD53 Micropolis 
1082 
1083 
1084 003314 UITS: 
1085 :/xkTop of Unit Information table (UIT) 
1086 003314 000066 .word 54. -/XBN size (lo wrd) XBN size = 3*#(1+sectors_per_track )/ 
1087 003316 000000 word 0 ;/XBN size Chi wrd)/ 
1088 003320 000122 .word 8&2. ;/DBN size (lo wrd)/ 
1089 003322 000000 .word 0 ;/DBN size Chi wrd)/ 
1090 003324 016730 .word 7640. ;/LBN size (lo wrd)/ 
1091 003326 000002 .word 2. ;/LBN size Chi wrd)/ 
1092 003330 000430 .word 280. ;/RBN size (lo wrd)/ 
1093 003332 000000 .word 0 ;/RBN size Chi wrd)/ 
1094 003334 000021 word 17. ;/Sectors per track/ 
1095 003336 000010 .word 8. ;/Surfaces per unit/ 
1096 003340 002000 word 1024. ;/Cylinders per unit/ 
1097 003342 002000 word 1024. ;/Write precomp cylinder/ | 
1098 003344 002000 word 1024. ;/Reduce write current cylinder / 
1099 003346 000000 word 0 ;/Seek Rate/ 
100 003350 000001 word 1 ;/Use CRC or ECC/ 
101 0033 000005 word 5 ;/RCT Size/ 
1102 0033 000010 word 8. ;/Number of RCT copies/ 
1103 003356 040065 word +B0100000000110101 ;tH4035;/Media Clo wrd)/ 
104 003 022544 word +B0010010101100100 ;tH2564;/Media (hi wrd)/ 








—_—- 
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1105 003362 000001 .word 
1106 003364 000002 .word 
1107 003366 000010 .word 
1108 003370 000020 .word 
1109 003372 000020 .word 
1110 003374 000005 .word 
1111 003376 000050 .word 
1112 003400 000015 .word 
1113 003402 000001 .word 
1114 003404 000001 .word 
1115 003406 000001 .word 
1116 003410 000040 .word 
1117 003412 000156 .word 
1118 003414 002000 .word 
1119 003416 002000 .word 
1120 
1121 003420 
1122 
1123 
1125 ; 
1126 s- 
1127 
1128 
1129 003420 UIT4: 
1130 
1131 003420 000066 .word 
1132 003422 .word 
1133 003424 000016 .word 
1134 003426 .word 
1135 30 121160 .word 
1136 003432 .word 
1137 34 000144 .word 
1138 003436 word 
1139 003440 000021 .word 
1140 003442 .word 
1141 003444 001147 .word 
1142 003446 00 .word 
1143 003450 001147 .word 
1144 003452 000000 .word 
1145 003454 000001 .word 
146 003456 000003 .word 
1147 0 000010 .word 
1148 003462 040037 .word 
1149 00 022544 .word 
1150 00 000001 .word 
1151 003470 000002 .word 
1152 003472 000004 .word 
1153 003474 000020 .word 
1154 003476 000020 .word 
1155 003500 000005 .word 
1156 003 50 .word 
1157 003 000015 .word 
1158 003 000001 word 
1159 003510 000001 word 
1160 0035 000001 word 
1161 003514 000010 word 


+B01000000000 
1800100101011 


2 
4. 
16. 
16. 
- 


oe 


eee 


SEQ 0025 


;/Sector Interleave (n-to-1)/ 
;/Surface to Surface Skew/ 
;/Cylinder to Cylinder Skew/ 
;/Gap size O/ 

;/Gap size 1/ 

;/Gap size 2/ 

;/Gap size 3/ 

:;/Sync size/ 

;/MSCP cylinders per Unit/ 
;/MSCP Gr per Cylinder/ 
;/MSCP Tracks per Group/ 
;/Max allowed bad spots per surface/ 
;/Bad spot tolerance (bytes)/ 
;/auto recal cylinder 

;/auto recal cylinder 


.=3000+UITsiz+UITsiz+UITsiz+UITsiz 


Unit Information table RD31 Seagate 


;/*xTop of Unit Information table (UIT) 

-/XBN size (lo wrd) XBN size = 3*(1+sectors_per_track )/ 
;/XBN size Chi wrd)/ 

;/DBN size (lo wrd)/ 
: i Chi wrd)/ 
;/LBN size (lo wrd)/ 
;/LBN size Chi wrd)/ 
;/RBN size (lo wrd)/ 
:/RBN size Chi wrd)/ 


;/Cylinder to Cylinder Skew/ 

;/Gap size 

;/Gap size 1/ 

;/Gap size 2/ 

;/Gap size 3/ 

;/Sync size/ 

; CP cylinders per Unit/ 

;/MSCP Gr per Cylinder/ 

;/MSCP Tracks per Group/ 

;/Max allowed bad spots per surface/ 





———_— $$ OC 





- 
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SEQ 0026 
DISK UNIT INFORMATION TABLES | 


1162 003516 000151 word 105. ;/Bad spot tolerance (bytes)/ 
1163 003520 001147 -word 615. ;/auto recal cylinder 

rt 003522 001150 -word 616. ;/auto recal cylinder 

1489 003524 .=3000+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz 

1168 

1169 3+ 

aa55 ; Unit Information table RD54 Maxtor Drive 

1172 

1173 

1174 003524 UITS: 

1175 ;/*Top of Unit Information table (UIT) 
1176 003524 000066 word 54. ;/XBN size (lo wrd) XBN size = 3*(1+sectors_per_track )/ 
1177 003526 000000 word 0O ;/XBN size Chi wrd)/ 

1178 003530 0007.: word 201. ;/DBN size (lo wrd)/ 

1179 003532 word ;/DBN size Chi wrd)/ 

1180 003534 137730 word 137730 ;/LBN size (lo wrd)/ 

1181 003536 word 4 ;/LBN size Chi wrd)/ 

1182 003 001141 word 609. ;/RBN size (lo wrd)/ 

1183 003542 word 0 ;/RBN size Chi wrd)/ 

1184 003 000021 word 17. ;/Sectors per track/ 

1185 003546 000017 word a ;/Surfaces per unit/ 

1186 0035 002311 word 1225. ;/Cylinders per unit/ 

1187 003552 002311 word i225. ;/Write precomp cylinder/ | 

1188 003554 002311 word 1225. ;/Reduce write current cylinder / 
1189 003556 000000 word 0 ;/Seek Rate/ 

1190 003 000001 word 1 ;/Use CRC or ECC/ 

1191 003562 000007 word 7 ;/RCT Size/ 

1192 003564 000010 word 68. ;/Number of RCT copies/ 

1193 003 040066 word %80100000000110110 ; tH4036;/Media (lo wrd)/ 

1194 003570 022544 word +80010010101100100 ;tH2564;/Media Chi wrd)/ 

1195 003572 000001 word 1 ;/Sector Interleave (n-to-1)/ 
1196 003574 000002 word 2 ;/Surface to Surface Skew/ 

1197 003576 000010 word 8. ;/Cylinder to Cylinder Skew/ 

198 003600 000020 word 16. ;/Gap size 0/ 

1199 003602 000020 word 16. ;/Gap size 1/ 

1200 00 000005 word 5. ;/Gap size 2/ 

1201 00 000050 word 40. ;/Gap size 3/ 

1202 003610 000015 word 13. ;/Sync size/ 

1203 003612 000001 word 1 /MSCP cylinders per Unit/ 

1204 003614 000001 word 1 ;/MSCP Gr per Cylinder/ 

1205 003616 000001 word li ;/MSCP Tracks per Group/ 

1206 003620 000040 word 32. ;/Max allowed spots per surface/ 
1207 003622 000151 word 105. ;/Bad spot tolerance (bytes)/ 
1208 003624 002311 .word 1225. ;/auto recal cylinder 
1209 003626 002312 .word 1226. ;/auto recal cylinder possible on this vendor's 
eit ;/drive mmm 

1$+¢ 003630 .=3000+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz 

1214 

1215 3+ 

1216 ; Unit Information table 

1217 ;- 

1218 





-_ oo 


. MAIN. 


le 

1253 003726 
1 730 
1255 003732 
1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1607 003734 
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DISK UNIT INFORMATION TABLES 


UIT6: 


3G Oe” 
;/#Top of Unit Information table (UIT) 
34. ;/XBN size (lo wrd) XBN size = 3e(1+sectors_per track )/ 
0 ;/XBN size Chi wrd)/ 
47. ;/DBN size (lo wrd)/ 


;/DBN size Chi wrd)/ 


016677 ;/LBN size (lo wrd)/ 
;/LBN size Chi wrd)/ 

340. ;/RBN size (lo wrd)/ 

0 ;/RBN size Chi wrd)/ 

17. ;/Sectors per track/ 

8. ;/Surfaces per unit/ 

1024. ;/Cylinders per unit/ 

1024. ;/Write precomp cylinder/ 

1024. ;/Reduce write current cylinder / 
;/Seek Rate/ 

1 ;/Use CRC or ECC/ 

5 ;/RCT Size/ 


3 ;/Number of RCT copies/ 
+B0100000000110101 ;tH4035;/Media (Clo wrd)/ 
+B0010010101100100 ;tH2564;/Media Chi wrd)/ 

1 ;/Sector Interleave (n-to-1)/ 


2 ;/Surface to Surface Skew/ 

8. ;/Cylinder to Cylinder Skew/ 
16. ;/Gap size O/ 

16. ;/Gap size 1/ 

5. ;/Gap size 2/ 

40. ;/Gap size 3/ 

43. ae size/ 

1 ; CP cylinders per Unit/ 

1 ;/MSCP Gr per Cylinder/ 

1 ;/MSCP Tracks per Group/ 

32. ;/Max allowed spots per surface/ 
110. ;/Bad spot tolerance (bytes)/ 
1024. ;/auto recal cylinder 


;/auto recal cylinder 


_=3000+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz 


Unit Information table 


;/*Top of Unit Information table (UIT) 
° 


54. ;/XBN size Cle 
0 ;/XBN size Chi wrd)/ 
47. ;/DBN size (lo wrd)/ 
;/DBN size Chi wrd)/ 
016677 ;/LBN size (lo wrd)/ 
2 ;/LBN size Chi wrd)/ 
340. ;/RBN size (lo wrd)/ 
0 ;/RBN size Chi wrd)/ 
4 ;/Sectors per track/ 





wrd) XBN size = 3#(1+sectors_per_track )/ 











~ 


. 
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ial a ae 


SEQ 0028 
DISK UNIT INFORMATION TABLES 

003756 000010 .word 8. ;/Surfaces per unit/ 
1277 003760 002000 -word 1024. ;/Cylinders per unit/ 
1278 003762 9002000 .word 1024. ;/Write precomp cylinder/ 
1279 003764 002000 .word 1024. ;/Reduce write current cylinder / 
1280 0037 000000 .word 0 ;/Seek Rate/ 
1281 003770 000001 .word 1 ;/Use CRC or ECC/ 
1282 003772 000005 .word 5 ;/RCT Size/ 
1283 003774 000003 .word 3 ; r of RCT copies/ 

003776 040065 word +B0100000000110101 ;tH4035;/Media (lo wrd)/ 

5 004000 022544 .word +B0010010101100100 ;f ;/Media Chi wrd)/ 

1286 004002 000001 .word 1 ;/Sector Interleave (n-to-1)/ 
1287 004004 0900002 .word 2 ;/Surface to Surface Skew/ 

004006 000010 .word ;/Cylinder to Cylinder Skew/ 
1289 004010 000020 -word 16 ;/Gap size 0/ 

004012 000020 .word 16 ;/Gap size 1/ 
1291 004014 .word 5 ;/Gap size 2/ 
1292 004016 000050 .word 40 ;/Gap size 3/ 

004027 000015 .word 13. ;/S size/ 
1294 004022 000001 .word 1 ;/MSCP cylinders per Unit/ 
1295 004024 000001 .word 1 ;/MSCP Gr per Cylinder/ 
1296 004026 000001 .word 1 ;/MSCP Tracks pee Group/ 
1297 004030 000040 .word 32 ;/Max allowed bad spots per surface/ 
1298 004032 000156 .word 110 ;/Bad spot tolerance (bytes)/ 
1299 004034 002000 .word 1024 ;/auto recal cylinder 
tZ5t 004036 2000 .word 1024 ;/auto recal cylinder 
108 004040 _=3000+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz+UlTsiz+UITsiz+UITsiz 
1304 
1305 i* ‘ ; 
+309 ; DEFAULT Unit Information table 
1308 
1309 
1310 004040 UITdF: 
1311 :/«Top of Unit Information table (UIT) 
1312 004040 000066 word 54. ;/XBN size (lo wrd) XBN size = 3*#(1+sectors_per_track )/ 
1313 004042 000000 word 0 ;/XBN size Chi wrd)/ 
1314 004044 000311 word 201. ;/DBN size (lo wrd)/ 
1315 004046 word 0 ;/DBN size (hi wrd)/ 
1316 004050 137710 word 137710 ;/LBN size (lo wrd)/ 
1317 004052 word 4 ;/LBN size (hi wrd)/ 
1318 004054 001161 word 625. ;/RBN size (lo wrd)/ 
1319 004056 word 0 ;/RBN size Chi wrd)/ 
1320 004060 000021 word 17. ;/Sectors per track/ 
1321 004062 000017 word 15. ;/Surfaces per unit/ 
1322 004064 002311 word 1225. ;/Cylinders per unit/ 
1323 004066 002311 word 1225. ;/Write precomp cylinder/ | 
1324 004070 002311 word 1225. ;/Reduce write current cylinder / 
1325 004072 000000 word 0 ;/Seek Rate/ 
1326 004074 000001 word 1 ;/Use CRC or ECC/ 
1327 004076 000007 word 7 ;/RCT Size/ . 
1328 004100 000010 word 68. ; r_of RCT copies/ 
1329 004102 040066 word 1+B0100000000110110 ;+tH4034;/Media (lo wrd)/ 
1330 004104 022544 word 1B0010010101100100 ;tH2564;/Media (hi wrd)/ 
1331 004106 1 word li ;/Sector Interleave (n-to-1)/ 
1332 004110 word 2 ;/Surface to Surface Skew/ 





-MAIN. 


DS 


EH 004112 





000015 
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DISK UNIT INFORMATION TABLES 





SEQ 0029 


;/Cylinder Cylinder Skew/ 
;/Gap size 


;/Gap size ry 
;/Gap size 2/ 


0 size 3/ 

ef ne size/ 
CP cylinders per Unit/ 

i MSC CP Gr per cyl ieger/ 

; /MSCP Tracks per Group/ 

; /Max allowed spots per surface/ 

; /Bad spot tolerance _eureeo/ 

;/auto recal cylinde 

;/auto recal avi jeder 








- 


a 


> 
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DISK PARAMETER QUESTIONS 


SEQ 0050 ' 


1348 .sbttl DISK PARAMETER QUESTIONS 

1349 -nlist bin 

1350 

1351 3° ‘ 

1352 ; P table Questions 

1353 s- 

1354 

1355 0041 IP.adr: .ASCIZ /IP Address/ 

1356 004157 vec.adr: .ASCIZ /Vector Address/ 

1357 004176 prk.hds: .ASCIZ /Just park the heads/ 

1358 004222 drv.nbr: .ASCIZ /Logical Drive (0-255)/ 

1359 004 ser.nbr: .ASCIZ /Drive Serial Number(1-32000)/ 

17.0 004 auto.md: .ASCIZ /Auto Format Mode/ 

1361 004326 warning: .ASCIZ /*#*#**« WARNING all the data on this drive will be DESTROYED **#/ 
1266 0044 .byte 0 

1306 004426 do.cont: .ASCIZ /Proceed to format the drive/ 

1366 004462 OrvTxea: .asciz /SNSAUIT# Drive NamesN/ 
I I 9 sey te rerienniaeenebenin beeper mere resent sN/ 
1368 DrvTx0O: .asciz /#A O RDSI sN/ 
1369 004701 OrvTx1: .esciz /#A 1 RDS2 part # 30-21721-02 (1 light on front panel) #N/ 
1370 004775 Drvix2: .asciz /#A 2 RDS2 part # 30-23227-02 (2 lights on front panel )#N/ 
1371 0050 DrvTx3: .asciz /@A 3 RDSS sN/ 
1372 005165 OrvTx4: .asciz /#A 4 #£«DS1 sN/ 
1373 005261 OrvTx5: .asciz /#A 5 RDS4 sN/ 
1374 005355 OrvTx6: .asciz /MA 6 sN/ 
1375 005450 OrvTx7: .asciz /#A 7 sN/ 
1376 005543 DrvTxc: .asciz /#A 10 6N/ 
Ea 005637 ASMSGr: .ASCIZ /#A Unrecognized Drive sN/ 
1379 005733 ASMSG1: .ASCII /s#Ns#SAAUTOSIZER FOUND:/ 
1380 905757 ASCIZ /#N#AUnt Cyls UIT# Drive NamesN/ 
1381 006021 ASMSG7: .ASCIZ /4A s#D18A Nonex istentsN/ 
1382 ASMSG8: .ASCIZ /#A #D18A RX50 Floppy CUNFORMATABLE )#N/ 
1383 006152 ASMSG9: .ASCIZ /#A #D1#A RX33 Floppy CFORMATABLE )sN/ 
1384 006234 ASMSG2: .ASCIZ /#A S#DiSA SD48A / 
1385 006257 ASMSG3: .ASCIZ /sSNSAAUTOSIZER RETURNED FAILURE STATUS CODE #D1sA:/ 
1386 006341 ASMSG4: .ASCIZ /sN#A CONTROLLER CHIP NEVER WENT DONE/ 
1387 Roeeee ASMSGS: .ASCIZ /sNSA CONTROLLER CHIP NEVER INTERRUPTED/ 
1388 006463 ASMSG6: .ASCIZ /sN#A SEEK FAILED/ 

1389 006507 ASMSGT: .ASCIZ /#N/ 
1230 006512 parkdrv: .ASCIZ /#NSAPLEASE wait .... parking disk heads. / 

1338 006563 Unt.nbr: .ASCIZ /Enter Unit Identifier Table CUIT)/ 

1393 006625 ask.prg: .ASCIZ /What local program do you want to run/ 

1.394 006673 ask.xbn: .ASCIZ /Enter XBN size in decimal (upto 10 digits)/ 

1395 006746 ask.dbn: .ASCIZ /Enter DBN size in decimal (upto 10 digits)/ 

1396 007021 ask.lbn: .ASCIZ /Enter LBN size in decimal (upto 10 digits)/ 

1aee 007074 ask.rbn: .ASCIZ /Enter RBN size in decimal (upto 10 digits)/ 

399 

1400 007147 bot.dev: .ASCII <15><12>/WARNING - If FLOPPY remove boot diskette if in drive to be formatted and/ 
1401 007261 ASCII <15><12>/ insert a diskette to be formatted. / ; 
1402 007351 ASCII <15><12>/ If WINCHESTER check if wrt protect switch (off) & ready switch (Con)./ 
1403 007471 “ASCIZ <15><12>/WARNING - All data on drive will be DESTROYED, do you want to cont inue?/ 
1404 007603 bot.rep: .ASCIZ /If boot drive, reinsert boot diskette € ress <RETURN>./ 
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SEQ 0031 


ue 007673 bot.con: .ASCIZ <15><12>/Do you want to format another diskette?/ 
+4oe ; Top of Unit Information table (UIT) 
1409 007745 TBQO: .ASCIZ /XBN size (lo wrd) XBN size = 3*(1+sectors_per_track )/ 
1410 010032 1TBQ@i: .ASCIZ /XBN size Chi wrd)/ 
1411 01 TBQ2: ASCIZ /DBN size (lo wrd)/ 
1412 010076 TBQ3: ASCIZ /DBN size Chi wrd)/ 
413 010120 TBQ4: ASCIZ /LBN size (lo wrd)/ 
1414 010142 TBS: -ASCIZ /LBN size Chi wrd)/ 
415 0101 TBQ6: -ASCIZ /RBN size (lo wrd)/ 
01 TBQ7: .ASCIZ /RBN size Chi wrd)/ 
7 010 TBQ8:  .ASCIZ /Sectors per treck/ 
1418 010252 TBQ9: .ASCIZ /Surfaces per unit/ 
1419 010274 1TB@10: .ASCIZ /Cylinders per unit/ 
1420 010317 TBQ11: .ASCIZ /Write precomp cylinder/ | 
010 TBQ1i2: .ASCIZ /Reduce write current cylinder / 
1422 010405 18Q13: .ASCIZ /Seek Rate/ 
1423 010417 1B8Q14: .ASCIZ /Use CRC or ECC/ 
1424 010436 1TBQ15: .ASCIZ /RCT Size/ 
1425 010447 1BQ16: .ASCIZ /Number of RCT copies/ 
26 010474 1BQ17: .ASCIZ /Medie Clo wrd)/ 
1427 010513 18018: .ASCIZ /Media Chi wrd)/ 
1428 010532 TBQ19: .ASCIZ /Sector Interleave (n-to-1)/ 
1429 010565 1TB@20: .ASCIZ /Surface to Surface Skew/ 
1430 010615 1TBQ21: .ASCIZ /Cylinder to Cylinder Skew/ 
1431 010647 TBQ22: .ASCIZ /Gap size 0/ 
010662 1TBQ23: .ASCIZ /Gap size 1/ 
1433 010675 1TBQ24: .ASCIZ /Gap size 2/ 
010710 TBQ25: .ASCIZ /Gap size 5/ 
1435 010723 TBQ26: .ASCIZ /Sync size/ 
1436 010735 1TBQ@28: .ASCIZ / cylinders per Unit/ 
1437 010765 1TBQ29: .ASCIZ /MSCP G per Cylinder/ 
1438 011016 TBQ30: .ASCIZ /MSCP Tracks per Group/ 
O11 TBQ31: .ASCIZ /Max allowed spots per surface/ 
Prt 011106 TBQ32: .ASCIZ /Bad spot tolerance (bytes) 
1442 011141 ODF1: ASCIZ /Controller Initialization Timeout/ 
1443 011203 ODFe: SCIZ /Controller never advanced to next step/ 
1444 u11252 DF3: ASCIZ /Controller can not execute local programs or non STD DUP dialog program/ 
1445 011362 DF4: ASCIZ /NXM Trap at controllers IP address/ 
1446 A SCIZ /No Interrupt occurred after SA polled/ 
1447 011425 11: ASCIZ /Bad Re se Packet returned/ 
1448 011462 ODFle2: ASCIZ /Fatal SA error ctlr offline/ 
1449 011516 DF15: ASCIZ /No progress shown efter a cmd had timed out/ 
1450 011572 OF14: ASCIZ /GET T CMD time_out after another CMD time_out/ 
1451 011653 ODFI15: ASCIZ /sNsAFatal error was reported when running local program/ 
011743 OF16: ASCIZ /s#NSAA Special was reported when runni ocal program don't know how to handle it/ 
1453 012065 SFO: ASCIZ /DUP protocol Error, unexpected message 
1454 012134 SFi: ASCIZ /s#NSASYSTEM is NOT in manual mode/ 
1455 012175 SF100: .ASCIZ /Unexpected or delayed Controller Interrupt/ 
1456 012250 HRDO: ASCIZ /Fatal Format error/ 
1457 012273 SFTO: ASCIZ /Controller in an unexpected ACTIVE state/ 
1458 012344 SFT1: ASCIZ /Wr Model r on controller/ 
1459 012405 PBO: ASCIZ /sNs l # listed #06/ 
1460 012434 PB1 ASCIZ /sSNSAExpected SA step bit #068A,Received in SA #06/ 
1461 012516 PBS ASCIZ /s#NSAAsking for Format Parameter table/ 


ee 








——$—<—_ -——_—_—_————_-- 
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DISK PARAMETER QUESTIONS 


1462 012564 PB4: -ASCIZ 
1463 012636 PBS: -ASCIZ 
1464 012727 PB6: .ASCIZ 
1465 913031 PB7: .ASCIZ 
3063 PBS: -ASCIZ 
1467 013117 PB9: -ASCIZ 
1 13161 PB10: £.ASCIZ 
9 013223 PB1i1: £.ASC 
1470 013332 PB13: .ASCIZ 
1471 013335 PFe: - ASCIZ 
147 3422 PBFO: £é.ASCIZ 
1473 013522 PBF1i:  .ASCIZ 
1474 013651 PBFe: .ASCIZ 
1475 013725 PBF3: .ASC 
1476 014021 PBF4: .ASCIZ 
147 PBFS: .ASCIZ 
1478 014131 PBF6: .ASCIZ 
1479 014226 PBF7:  .ASCIZ 
1480 014325 PBF8:  .ASCIZ 
1481 014415 PBF9: .ASCIZ 
014455 PBF1IO: .ASC 
1483 014515 PBlicrn: .ASCIZ 
484 014 PBllop: .ASCIZ 
1485 0146 PBlists: .ASCIZ 
486 014673 PBilend: .ASCI 
1487 014752 PB11GDS: .ASCIZ 
1488 015002 PBII1ESP: .ASCIZ 
1489 015037 PBIIELP: .ASCIZ 
4 5071 PB1iSD: .ASCIZ 
1491 015113 PB11RD: .ASCIZ 
1492 015140 PBI1AP: .ASCIZ 
1493 015162 pbilsO: .ASCIZ 
1494 015207 pblisi: .ASCIZ 
1495 015241 pblise: .ASCIZ 
496 015277 pbiis3: .ASCIZ 
1497 015 pbiis4: .ASCIZ 
1498 015370 pbiis5S: .ASCIZ 
1499 pblis6: .ASCIZ 
1 pblis9: .ASCIZ 
1501 01 pbliw0: .ASCIZ 
1502 015573 pbliwi: .ASCIZ 
150 pb1201: .ASCIZ 
1 015750 pbl20e: .ASCIZ 
1505 016035 pbi203: .ASCIZ 
1506 0 pb1204: .ASCIZ 
1507 016147 pb1205: .ASCIZ 
1 pbl206: .ASCIZ 
150 pb1207: .ASCIZ 
1510 016335 pb1208: .ASCIZ 
1511 016371 pbi209: .ASCIZ 
1512 016472 pbl12i0: .ASCIZ 
1513 0165 pbl2il: 
pbl215: .ASCIZ 


1517 016762 we 
1518 017023 pbl216: .ASCIZ 


es rrr ET 





SEQ 0032 


/#NsAReceived valid Format Parameter table/ 

/$NSAOn UNIT 8068A, #06 Bad Blks were found during Format/ 

/$NSAOn UNIT #068A, 806 Bad Blks were found during Verify pass #06/ 
SNSADUP Message T 


/ ype: #06/ 

/#NSADUP message number: #06/ 

/#NSAMSCP Controller model # : #D3/ 

/8N8A Microcode version # : #D3/ 

/#NsAController is IDLE when it should be ACTIVE running format program/ 


/8N/ 

/SNENSBAF inished local pore without procedure error/ 
/@NSAFormat Parameter table entry at byte s06SNSAis out of Acs raf 
/éNSAFormat Parameter table entry at byte “06#NsAis incompatible with entry at byte #06/ 
/SNSAUNIT does not exist on controller/ 

/SNSAUNIT #06%A does exist but doesn't respond on controller/ 
/*#NSAUNIT SO68A is write protected / 

/SNSAWr ite Fault detected on UNIT #06/ 

/SNSAAttempt to step hd #038A at cyl #03A failed on UNIT #06/ 
/S#NSAAttempt to format hd #035#A at 6 038A failed on UNIT #06/ 
/#NSATO many Bad Blocks otal Bad Blocks #06/ 
/#NSADisk Controller model : #D3/ 

/SN6A Microcode version : #D3/ 

/SNSAExpected CRN #068A,Received CRN #06/ 

SNSACMDpkt Opcode #06A,RSPpkt Opcode #06/ 

/#NSAResponse pkt status #06/ 

/SNSANO end bit(200) in response packet endcode/ 

/#NSAGet Dust Status cmd/ 

/#NSAExecute Supplied Prg cmd/ 

/#NSAExecute Local Prg cmd/ 

SINSA md/ 


“s 


/SNSAAbort Prg cmd/ 

/SNSAsts: successful/ 

/#NSAsts: Invalid Command/ 

/SNSAsts: No Region Available/ 

/#NSAsts: No Region Suitable/ 

/#N#Asts: Program Not Known/ 

/@N#Asts: L Failure/ 

/SN#Asts: Standalone/ 

/@NSAsts: Host Buffer Access error/ |. 

/SNSAUnknown command OPCODE received in timeout loop/ 
/#N%AUnknown command CRN received in command timeout loop/ 
/®NSASA er: Envelope\packet Read Spar ity or timeout )/ 
/SNSASA er: Envelope\packet Write (parity or timeout)/ 
/#NSASA er: Controller ROM and RAM parity/ 

/@NSASA er: Controller RAM pari ty/ 

/S*@NSASA er: Controller ROM parity/ | 

/#NSASA er: Queue Read 2 i or timeout )/ 

/SNSASA er: Queue Write (perity or timeout)/ 

/SNSASA er: Interrupt Master/ 

/SNSASA er: Host Access Timeout (higher level protocol dependent )/ 
/SNSASA er: Credit Limit Exceeded / 

/®#NSASA er: Bus Master Error/ 

/®NSASA er: 2 apse Controller Fatal error/ 

/#NSASA er: Instruction Loop Timeout/ — 

/SNSASA er: Invalid Connection Identifier/ 

/SNSASA er: Interrupt Write Error/ ; _ 
/SNSASA er: MAINTENANCE READ\WRITE Invalid Region Identifier/ 











H35 


._MAIN. MACRO VOS.03 Tuesday 10-Jun-86 13:21 Page 16-3 
| SEQ 0033 


DISK PARAMETER QUESTIONS 


1519 017117 pb1217: .ASCIZ /sNSASA er: MAINTENANCE WRITE Load to non-loadable controller/ 
1520 017214 pb1218: .ASCIZ /NSASA er: Controller RAi1 error (non-parity)/ 
“ : INIT sequence error/ 
1522 017330 pb1220: .ASCIZ /sNSASA er: High level protocol incompatibility error/ 
1523 017415 pbi221: .ASCIZ /sNSASA er: Purge\poll hardware fai lure/ 
1524 017464 pbi222: .ASCIZ /sNSASA er: Mapping Register read error (parity or timeout )/ 
1525 017557 1223: .ASCIZ /sNSASA er: Attempt to set port data transfer mapping when option not present/ 
sasf 017674 le: .ASCIZ /SNSASA Value (oct) #06/ 


1 
1528 017723 PBsfO: .ASCIZ /sNSADUP t #06%A message number #06/ 

1529 017771 ORPunt: .ASCIZ /sNsNSARQDX DRIVE #068A finished./ 

taae 020032 TYPASC: .ASCIZ /sSNSAPLEASE TYPE ANSWER to controller question or just <return>/ 


1532 ; mmm 
1533 ; 


1538 

1539 020131 
1540 31 
1541 020206 
1542 206 
1543 020237 


1553 990545 
. 020543 
1556 
557 
1558 020550 
59 550 


1567 020671 
1568 020736 


1569 020736 
1570 021016 


1579 021234 


afuit: ;.byte 
-@Sciz 
afdat: ;.byte 
.esciz 
dfunt: ;.byte 
-asciz 
dfbad: ;.byte 
-asciz 
dfdwn: ;.byte 
/asciz 
dfcon: ;.byte 
-asciz 


afser: ;.byte 
.asciz 
ASK. ANSWER : 


asciz 
; Informational 
sfbegt: ;.byte 
.asciz 
sfdont: ;.byte 
.aSciz 
sfrevt: ;.byte 
-Asciz 
sfrit: ;.byte 
,asciz 
sfret: ;.byte 
.asciz 
sfrebt: ;.byte 
/asciz 
sfdbbt: ;.byte 
.asciz 
sfxbbt: ;.byte 
-asciz 
sftryt: ;.byte 
.asciz 
sfrbbt: ;.byte 
-asciz 
sfcylt: ;.byte 
asciz 


0., 


‘Enier date <MM-DD-YYYY> 

‘Enter unit number to 
.def 

‘Use existing bad block t formation <N>; 

‘Use —_— line load <Y>: 


; “Unit? (def #1) 

Use Bad? (def #4) 
Downline? (def #5) 
; Continue? (def #6) 


spl ; Unit Info Table? (spl #2) 
 aihtnter ing UIT#SO28A: on pate? (que #0 SD3SN' 


"Cont inue if bad block satorantion is panagyee thse <N>:! 


‘ans>' 
Messages 
int 


‘Shea ormat Begun’ 


1... a. inf 


ssi ornat complete’ 
of Revectored LBNS' 


ope. 10 


' Primary revectored LeNs* 


# of seconda 

ry Secondery/tertiary revectored LBNS’ 
of Bad RCT blocks oe 

‘ye to data errors' 
Ns Cinf #7) 


She RBNS’ 
.a.inft 


— 
ry 


‘Formatting Cyl #’ 


a.que Serial #? (que # 
‘Enter non-zero serial number <8-10 digits>:' 


; Begin Cinf #0) 
; Complete Cinf #1) 
; # of Revectored LBNs Cinf #2) 
. Cinf #3) 
. Cinf #4) 


1 ‘bed blocks in the RCT’ ‘erea, 3s 
° ee 

‘gs ‘Bed ‘Blocks in the DBN area due to data errors’ 
# of Bad XBNs ... Cinf 

’ "Bad. Sleeke in the BN. anes due to data errors’ 


nf ; # of Retries Cinf #11) 
4 Bicks retried on the hee : goes 


Cinf #5) 


#9) 


. Cinf #14) 
; Formatting Cyl Cinf #15) 


em ae 








1585 021255 
586 

021307 
1588 021333 
021360 
021360 


594 021407 
021407 


021435 
021435 
021466 
021466 
021517 
021517 


021543 
021543 


021606 
021606 


021642 
021642 


021731 
§ 021731 


022020 
022020 


1 022037 
022037 


022126 
022126 


022211 
1628 022211 
1629 
1630 022272 
123 022272 


1 
1633 022315 
1e%e 022315 


16 
1636 022341 
1637 022341 


; Successful Termination Me sages 


;. by 
sffecut: 
sffent: 


te | 
-asciz 


ie 
ascii 
-Asciz 


i2. ,-@.te” ; Reformat Worked (ter #12) 
'SNSAFCT ured iaearcantinat sd 
13.,.a.ter Reconstruct Worked (ter #13) 


‘@NSAFCT was not used’ 
‘gNSAFormat completed’ 


; Error messages 


efstat: 


efsndt: 


efcmdt: 


efrevt: 


efbust: 


efinit: 


efnut: 


efdxft: 


effcct: 


efsekt: 


efrect: 


efloft: 


effcwt: 


efrert: 


efrcwt: 


efrcft: 


; -byte 
-asciz 


; -byte 


-asciz 


;.byte 
-@sciz 


; byte 
.asciz 


; byte 
-QSciz 


; byte 
-asciz 


; byte 
.8Sciz 


;.byte 
-asciz 


; .byte 
-QSciz 


; byte 
-asciz 


; -byte 
-asciz 


; .byte 
.aSciz 


; byte 
-asciz 


; .byte 
.asciz 


; .byte 
-asciz 


;. byte 
-asciz 


1.,.a.fat ; Status Error (fat #1) 

‘gNSAGET STATUS failure’ 

2.,-a.fat ; Send Error (fat #2) 
‘gNsAQ-PORT send error’ 

3.,.a.fat ; Command Error (fat #3) 
‘gNsAUnsuccessful command’ 

4.,.a.fat ; Receive Error (fat #4) 
‘'gNSAQ-PORT receive error’ 

5.,.a.fat ; Bus Error (fat #5) 

‘'gNSAQ-Bus I/0 error’ 

6.,.a.fat ; Format Init Error (fat #6) 
 dhisAFormatter initialization error’ 

7.,.a.fat ; Unit nonexistent error (fat #7) 
' kisANonex stent unit number’ 

Ria ; DBN/XBN Format error (fat #8) 
aks RDBNXBN format error (drive FORMAT command failed)’ 

9., ; FCT copies error (fat #9) 
aRECT does not have enough good copies of each block’ 
10.,.a.fat ; Seek error (fat #10) 
'gNSASEEK error’ 

11.,.a ; RCT copies error (fat #11) 
SARCT not have enous good copies of each block’ 
le. ,.a.fat : LBN format error (fat #12) 
'gNSALBN format error (drive FORMAT command failed)’ 
13., a.fat ; FCT write error (fat #13) 

I SROGAF CT write error (check write protect switch)’ 

14., ; RCT read error (fat #14) 
por tote ae error’ 

15., ; RCT write error (fat #15) 
pe hg an error’ 

16.,.a.fat ; RCT full error (fat #16) 
‘'gNSARCT full’ 





-———. + 
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.MAIN. MACRO VO5.03 Tuesday 10-Jun-86 13:21 Page 18-1 
36 
FORMAT Messages _ 


1638 

1639 022356 effcrt: ;.byte 17., fat ; FCT read error (fat #17) 

teas 022356 .asciz 1 SROSAF CT read error’ 

1642 022401 effcnt: ;.byte 18. a.fat ; FCT nonexistent error (fat #18) 
i743 022401 .asciz SKOSAFCT nonexistent’ 

1645 022425 effcdt: ;.byte 19., ; FCT downline load error (fat #19) 
1 022425 .asciz ZiMAECT , line load error’ 

1648 022462 eftmot: ;.byte 20.,.a.fat ; Drive timeout error (fat #20) 
10°) 022462 .asciz ‘*NSADrive init timeout’ 

1651 022511 efillt: ;.byte 21.,.a.fat ; Illegal response error (fat #21) 
1652 022511 -asciz ' ShMAT i legal response to start-up question’ 

1654 022563 efwart: ;.byte 22.,.a.fat ; Head error (fat #22) 

ete 022563 "asciz ‘SNSAWARNING - possible head addressing problem - run diagnostics’ 
1657 022664 efinpt: ;.byte 23... a.fat ; Input error (fat #23) 

te 022664 .asciz SKOSAINPUT Error ' 

1660 022705 efmedt: ;.byte 24. a.fat ; Media error (fat #24) 

ert: 022705 .asciz ' shusAMedi a degraded’ 

1663 022730 efunrg: ;.byte 1. a. fat ; Status Error (fat #1) 

ere 022730 .asciz ' hs AUnrecogon ized drive’ 

1 .list bin 

1667 even 


-MAIN. 





Pt and re din 
— 

of routine 

706 


DUST response 
1707 


1708 
1709 
1710 


1723 023016 
1724 023020 
1725 
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SEQ 0037 


.sottl global subroutines 


5 EEE REAR EA EAEA EERE EER ERE REA E SEE ER EEREA EAE REE R EEE EES CRE ES 


F THIS ROUTINE WILL ALTER THE CPU INTERRUPT LEVEL TO THREE, 
; INITIATE THE MUT POLLING AND WAIT A REASONABLE AMOUNT OF 

; TIME HOPING THAT THE MUT WILL INTERRUPT. 

:There is really 2 sections to this routine. One section awaits the 
;normal course of a command by waiting for an iterrupt and then going 
sThe other course of the routine is to handled timeout commands. This is 


sa little more difficult. If there is a command that is time-out the 
;program will do a GETDUST status command to find out the status. IF 

swe get an interrupt there are 2 possibilties. ; 

; iv @ a to the Get Dust status command. Handled like any other 

; command. 

; 2. @ response to the timeout command in which case we handle it instead 
;0f the normal handler located in the program right after it was issued. 
:This means that there is a GET DUST response peyeine which we must handle 
;shortly after. As soon as we handle the GET DUST response we check to | 

; make sure we handled the timed out command by checking the LSTCRN register 
; and return to the DUP dialog mode by checking the DUP message type and 
;responding to the intial timed out command 


}>>> waiting for initial or timed out command 


ae Jinterrupt received 

‘ee )} just jump to vector address location | 

; ; ~ on site response handler located right after cmd loader in the program 

; 

3.) if no interrupt then save cmd info & submit GETDUST command ; 
; }>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>waiting for GETDUST status & timed out command responses, if 
s> >) }interrupt received 7 

7) > }test for response to GET DUST or TIMED_OUT cmd 

; } dhandle response here 

; dif response was GET DUST check if we handle the TIMED_OUT c 


3) > pcccccececececececececc<)(yes, LSTCRN = 0) go back to DUP dialog mode by checking DU 
s) )eceeececccececeeceecccececece}(no, LSTCRN = #) load TIMED_OUT cmd Vector ,Opcode,CRN goto 
5 KEKE KEE EEE EEK KE KKK KEKE IF RESPONSE was TIMED_OUT cmd clear LSTCRN and wait for GET 


; 
; to DUP dialog routine 
pddaoo ad ok doi iaiaiaiok da tatok doko doioi tok tek aot totoioti tetok tt kt tk eae ee EE EE 


POLLWT : 
llw: mtps #140 ;Drop cpu level to three. 
wi tst aIPreg Teli mut to start polling. 
Mov #60. ,r0 ;outer wait loop 
1$: Mov #4000 , ri ; ; . , . . 
2s: mtps #340 ;don’t want interrupts while in other routines 
jsr pc ,BITI5T ; ;inner wait loop 
AK ;check for control C . 
mt #140 sturn on interrupts again after check 
no ri,2$ ; ; 
sob r0,1$ 


;No response has been received 





——_—$ ———$ -—_—__——_-- 
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SEQ 0038 


1726 023022 106427 000340 mtps #340 ;don't want interrupts while setting up for cmd 
1727 023026 004737 031606 jsr pc .BITIST ;test SA make sure not a fatal error 
1728 023032 013700 002462 mov cmdpak+10,r0 ;get opcode 
out ake yoni « | 022700 000001 cmp top .gds,rO ;if the command issued was a GETDUST STATUS and time 
ig tr e 
_ 1730 023042 901006 bne — GDSO ;if not go do a GET DUST to find out what the si tuat 
ion is 
> ae ERRDF 12,df14 ;type no iterrupt after get dust status command cont 
roller 
1438 023054 000137 037420 jmp dropunt ;drop unit and go on 
1336 ;GETDUST ssave timed out command information 
1736 023060 017737 157242 002544 GDSO: mov avector ,LSTVCT sstore the vector address of timeout command 
1737 023066 013737 002452 002540 mov cmdpak ,LSTCRN sstore the CRN of the timed out command 
te 023074 013737 002462 002542 MOV cmdpak+10,LSTCMD sstore the opcode of timed oui command 
1740 023102 032737 100000 002534 bit #bit15,cmdrng+2 :test ownership of ring make sure we own it 
1741 023110 001363 bne GDSO ;if we don’t own it wait until we do 
1742 023112 012737 000016 002446 MOV #14. ,cmdlen ;load lenght of packet to be send 
1743 023120 112737 002450 movb #0 ,cmdlen+2 ; load msg type and credit 
1744 023126 112737 002451 movb idup.id,cmdlen+3 ; load connection ID 
1745 023.34 005237 002452 inc cmdpak sload new CRN 
1746 023140 005037 002454 clr cmdpak +2 
1747 023144 005037 002456 clr cmdpak +4 
1748 023150 5037 002460 clr cmdpak +6 
1749 0231 012737 1 002462 MOV #op .gds ,cmdpak +10 ;load up opcode 
ee 023162 50 002464 clr cmdpak +12 sno modifiers 
1752 025166 012777 023226 157132 Mov #RFDO, vector ;NEW VECTOR PLACE 
1753 023174 012737 002352 002526 MOV #rsppak ,rsprng sload response packet area into ring 
1754 023202 012737 002452 002532 MOV seuaes Coane ;load command prexet area into ring 
1755 023210 012737 140000 002530 Mov #140000 , RSPRNG+2 ;PORT OWNERSHIP BIT. 
1756 023216 012737 100000 002534 mov #bit15,CMDRNG+2 
eed 023224 br POLLWT :GO and wait for interrupt 
1759 
1760 ; 
1761 ; There is only 3 ways out code. 
1762 ;1f GETDUST resposne TIMED_OUT cmd re se was handled 
1763 ; if LSTCRN = O and RSPPAK+10 = OP.GDS+OP.END then 
ties ; back to DUP dialog : 
;or 
1766 ; (TIMED_OUT cmd still hasn't returned but GETDUST has returned) 
1767 ; if LSTCRN = # and RSPPAK+10 = OP.GDS+OP.END then 
1768 ; check if idle or active. if idle then error 
1769 ; check for progress in proprecs indicator if no os ress then error 
1770 ; load LSTVCT into @vector,LSTCRN into cmdpak, LSTC into cmdpak+10 
1771 ; set response ring ownership to Port Owned 
176 ; jmp to pollwt. 
;or 
1774 ; (TIMED_OUT cmd response recieved before GETDUST response returned) 
1775 ; if LSTCRN = # and RSPPAK+10 not= OP.GDS+OP.END then 
1379 ; » renege LSTGN and 
He oii aah 
1780 023226 RFDO: ;INTR TO HERE if GETDUST or TIMED_OUT cmd 
1781 023226 106427 000340 mtps #340 ;No interrupts please 
1782 023232 062706 000004 #4,sp :fix stack 4 for intrpt 


=_-_—_— 





LE TS 
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1783 023236 


1793 023306 
1794 023312 


1795 023316 
1796 023320 


1797 023324 
mode 


Se Saeee 
3 ~ 


3 
& 


1831 0235352 
1832 


013701 
013700 
020001 
001103 


023727 
001412 


000137 


004737 
005737 


001004 
062706 


000137 


132737 
001010 


013777 
012737 
000137 
020037 
001412 
000137 
013737 


013737 
005037 


004737 
012737 
000137 





002452 
002352 


002362 


037404 


030654 
002540 


000201 


002371 


002452 
002462 
156660 


002530 


002452 
002462 


002530 


1$: 


2$: 


1002$: 


1001$: 


3$: 


4$: 
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Sanilac aeadiieanaian 


#pb11wO 
unkwn 

» RSPCHK 
STCRN 


2$ 
#2,Sp 


DUPDLG 


#bit3,r ak+17 
1002$ _ 
#pb11 
rsppak+20,r0 
rsppak+22,ri 
r0, loprgi 


a 
ri,hiprgi 
001$ ° 


11,0F13 


r0, loprgi 
ri,hi ra 


LST ,cmdpak 
LSTCMD , cmdpak +10 
LSTVCT ,@vector 


#140000 , RSPRNG+2 
pollw 


r0,LSTCRN 


4$ 
#pb1liwl 
unkwn 


LSTCRN, cmdpak 
LSTCMD ,cmdpak +10 
LSTCRN 





SEQ 0039 


;check command packet CRN 
;check response pooner CRN 
;Are they the SAME must be GETDUST cmd 
;if not it must be the TIMED_OUT cmd 
;it should be a GETDUST lets make sure 


sunexpected cmd response in time out loop 
serror handler 


;check the response 

ssee if timed out command was already recieved (lstc 
sad just stack for Timed Out cmd's initial call to PO 
;if Timed out cmd was already received then goto DUP 


;if Timed out command was not received already (LSTC 
;if server idle then error 

;if not check for progress 

;controller idle ahen it should be active 

scheck for progress in progress indicator 

ssee if low word of progress indicator is the same a 


;if it is then continue 
;see if high vaule is the same 


sno progress shown after cmd timeout 

;update progress indicator 

smove TIMED_OUT cmd CRN into cmd 

smove TIMED_OUT cmd Opcode into cmd : 
;load TIMED_OUT cmd interrupt handler address into v 


;Port owned 
swait for TIMED_OUT cmd response 


scheck the crn with the last CRN from the timeout co 


; Unexpected cmd response in time out loop 
serror handler 


;sTimed out command recieved but Get Dust Stetus is s 
;load timed out command values for RSPCHK routine 


sload timed out command values for RSPCHK routine 
;if it is the timeout command clear LAST CRN registe 


+ge check the command 
;PORT OWNERSHIP BIT. | 
;go wait for GETDUST intterupt 








wo 


846 023550 

847 023550 106427 000140 
1848 023554 013704 002324 
1849 023560 012703 004000 
1850 023564 005024 

1851 023566 


1852 
1853 023570 012700 1°7777 


PPP > PPD D> >>> >>> >> >>> >> D>D>DD 


1854 023574 004737 031606 
1855 0 030314 


4 23600 

1856 023602 001002 
1857 023604 077005 
1835 023606 000560 


1860 023610 013700 002326 


Pee S SPECS C ECS S SCTE S| 


1861 023614 000241 
006200 


006303 
1871 023646 012700 177777 
>>> >>> D>>D>>D>>DD>D>>D>>D>D>DD 
187¢ 023652 7 
1873 023656 
1874 023660 
1875 023662 106427 000140 
1876 023666 077007 
ye 023670 000527 


062706 000004 
880 023676 ne 031606 


023706 012700 002526 
CE EEE KK 


1885 pte 042700 000001 


1 002326 
1887 O23722 Ol2721 023762 
1888 726 000140 


1889 023732 





1890 
| 1891 023734 006303 


HRDINT : 


1$: 


4$: 


6$: 


8$: 


sp2int: 


12$: 
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INITIALIZE 


rl = ptable address 
7 = step bit mask 


= SA address 
mtps #140 
MOV 
MOV ei Fefivrs 
clr 
Break 
MOV #-1,r0 

isr pc, biti5ST 


it r3,(r4) 
bne 6$ 
sob r0,4$ 


br timout 
MOV vector ,ro 
cle 
asr r0 
asr r0 
bis #<bit15+bit7>,ro 
mov pot 3 » 
mov #sp_2 in ek Pile 
Mov #140,(rl 
Mov r0,(r4 
asl r3 
mov #-1,r0 
mtps #340 
break 
ae #140 
m 
res 8$ 
br timout 
add »sp 
isr pc, ,biti5ST 
it r3,¢ 
beq wrngstep 
MOV #RSPRNG , RO 
bic #bi tO, rd 
MOV vector, ri 
Mov éspsint. (ri)- 
Mov 40,(r i) 
MOV "3 wena) 
asl r3 


ET 


eo eee 


5 FE CEEEESESESSE EE SEESSEEESSESSESASESSSESEASS SSS SESSSSESASSSESSSE EASES SESE TEESE 
HARD 


This routine hard initialize the disk controller so that DUP commands 
can be issued. This routine is governed by the UQSSP spec. 
This format starts by initializating 


;initialization step re 
: start initialaztion IP and put SA adrs into r4 


slooking for step 1 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 


;Look for fatal SAreg error 


;check sa reg for step 1 bitll =O >1 


responding in step 1 <<<K eee Kee KKK E EE KEE EEE EKER 


;= VECTOR/4 


;load up sy loacation into vector 
lower “he erie + 
; Enable IN ERRUPT ,set 1 cmd rng € 1 rsp rng 


;next step 
slooking for step 2 >>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>> 


swaste some time 
swaste some time 
;swait ten seconds 
stimed out if here 


slook for sa ersor 
;check step 


sresponding in step 2 <<< KKK KKK KEKE E KEKE EEE EEE EE EEE 
;no adapter purge interrupts 

;load up interrupt loacation into vector 

address of the communications are 


;lower the priority 
; load low ri 


;snext step 





-_—-—-- 





C4 


-MAIN. 


Global subroutines 
1892 023736 012700 177777 


D> PPP PP > >> >>> >>> >>> >>>>>D> 


1903 023774 
1904 
1905 023776 


106427 


013701 


000340 


000140 


000004 
031606 


002326 


4404000000000 


1906 024002 
1907 024006 
1908 024012 


d. 


1909 
1910 024014 
1911 024016 


>> >>> >> >>> >>>>>D>>>>>>>>>DD 
1064 


1912 024022 
1913 024026 


1919 024042 
1920 024046 
1921 024052 
1922 024054 


19 20 
1937 024124 
1938 

1939 024126 
940 024136 
1941 024144 
1942 

1943 024150 
1944 024150 
1945 024160 
1946 024204 


1947 
1948 024210 


012721 
012711 


005014 
006303 
12701 


106427 
077107 
000443 


000137 





024042 
000340 


177777 
000340 


000140 


000004 
031606 


002336 
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13$: mtps 


sp3int: 


18$: mtps 


sp4int: 


timout: 





#-1,r0 
#340 


#140 
r0,13$ 
timout 


#4 ,Ssp 

pc, ,bitlST 
r3,(r4) 
wrngstep 
vector ,rl 


$ int,(ri)-« 
e3n0.CriD 


(r4) 


r3 
#-1,ri 
#340 


#140 
ri,i8$ 
timout 


#4 ,sp 
pc ,bitiST 
r3,(r4) 

wrngstep 


(r4),ri 


i 

#177400,r1 
ri,mdinbr 
#177760, r2 


6,SFTi 
#b i t13,UNTFlgs 
gobit 


5,DF1 
#pbi,r3,(r4) 
dropunt 


—_—$——_- ——_——_———_-- 


EEUU UEEEEEEEEEE SEER 


; look ing for step 35 >> >>>>>>>>>> >>> >>> >> r >>> > >>> >>>? 
;swaste some time 
;waste some time 


;swait ten seconds 


sresponding in step 3 <<< Kee cee ee Kee K KEKE KEKE KEKE 


;load up interrupt loacation into vector _ 
;after step four we want no interrupts until expecte 


;load low ringbase address of the communications are 


slooking for step 4 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
;waste some time 
;waste some time 


swait ten seconds 


scheck for SA error 
;check for step 4 


sidentify the controller number and microcode versio 


;sshift version # out 


:clear top bits off 
; 1 number storage 
;clear model number out 


scheck for Mode” # 
;check for Model ¢ 
; DEVICE FATAL wrong model ¢#,wrong controller 


:set unknown model number in unit flags 
;drop unit and go on 


; DEVICE FATAL controller timeout during hard init 
; Expected SA step bit xxxxx set, received yvyyYYYY 
;drop unit and go on 





000137 
012714 
012700 
000240 
077002 


032737 


062706 
012777 
00473 / 


132737 
001467 


012777 
012737 


037420 


000001 
177777 
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155702 


002371 


002534 
002446 
002450 
002451 
002462 


155564 
002526 





SEQ 0042 
4,D0F2 ; DEVICE FATAL ro. step bit set after interrupt 
#pb1,r3,(r4) ; Expected SA step bit xxxxx, received in SA yyyyyy 
dropunt ;drop unit and go on 
eg ;Controller is NOW INITIALIZED 
- a ;waste just a little time so program can terminate 

: ;Do a Get Dust Status command start things off 
#biti5,cmdrng+2 ;test ownership of ring make sure we own it 
GDS2 ;if we don't own it wait until we do 


3! 
#14. ,cmdlen ;load lenght of packet to be send 


#0 ,cmdlen+2 ; load a type and credit 
#dup.id,cmdlen+3 ; load connection ID 
cmdpak ;load new CRN 
cmdpak +2 
cmdpak +4 
angi Sy mdpak +10 load ode 

‘ e + ;load up opc 
cmdpak +12 ;no modifiers 
#RF D2 ,avector ;New vectom place ; : 
#rsppak ,rsprng ;load response packet area into ring 
#ec ‘oor ;load command packet area into ring 
#14 »RSPRNG+2 ;Port ownership bit. 
#o i t15,CMDRNG+2 
pc, POLLWT ;Go to poll and wait routine. 


5 ed a aK EERE RRA EAE EEE KERR EEE RAAKEKER EEA EERE EERE REE EES 


;Intr to here. 
#6 ,Sp ;fix stack for interrupt (4), pollwt subrtn (2) 
#intsrv,@vector ;Change vector 
pc , RSPCHK :Go to routine that will check on 
;the response recvd from the mut. 
;it will check the cmd ref 
snum, the endcode and status. 
#bit3,rsppak+17 ;is this server active already 
dnint sbranch to Execute Local Program 
3,SFTO -Soft Error “already active will do an ABORT cmd” 


;Doing an ABRT do get into idle state ; 
#bit15,cmdrng+2 ;test ownership of ring e sure we own it 
ABRTS ;if we don’t own it wait until we do 
#14. ,cmdlen ;load lenght of packet to be send 
#0 ,cmdlen+2 ; load neg type and credit 
#dup.id,cmdlen+3 ; load connection ID 
cmdpak ;load new CRN 
emdpak +2 
emdpak +4 
cmdpak +6 
#op.abrt , cmdpak +10 ;load up opcode 
cmdpak +12 sno modifiers 
#RFDS,a@vector ;New vector place 


#rsppak ,rsprng ;load response packet area into ring 
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Global subroutines 


1964 02 


024564 
024572 
024576 
024576 
024602 
024610 


14 


002452 
140000 


100000 
022760 


000006 
032650 
030654 


155516 


SEQ 004% 


Mov #cmdpak , ;load command packet area into rin 
MOV 2140000. RSPRNG +2 ;Port ownership bit. ° 
mMOv #b i +15, CMDRNG+2 

jsr pc ,POLLWT ;Go to poll and wait routine. 


s KEREEAEREAAEKEAEEARAAEEEEAARAEREAKERAE EARS AE SRSA KERAEEERESRE SEES SEES ES 


RFD3: ;Intr to here. 
add #6,Sp ;fix stack for interrupt (4), pollwt subrtn (2) 
mov #intsrv,@vector ;Change vector 
jsr pc , RSPCHK ;Go to routine that will check on 
;the response recvd from the mut. 
sit will check the cmd ref 
;num, the endcode and status. 
br GDScmd sbranch back to make sure not busy 
DNINT : 
rts pc 





F4 


-MAIN. 


1983 
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Globel subroutines 


025056 
025056 


025066 
025074 
025102 
025110 


032737 
901374 


155322 


5 EEEEEEEEEE SESE AES SEASEAASEESSSESASEES ES ESSSSS SESE SAAR EE SETA ESSE SED 
Osizer 

; ___~—sO«r This: routine runs the Execute lied wre called AUTOSZ 

; This program is downline loaded into the controller to determine 

; which drive is out in the controller. First you must tell which drive 

; = want to format. After listing the drive number the program will load 

; the ares and figure which DEC drive it is and which UIT to load into 

; the di controller fo rthe format program. 


; 
5 AEA AAEA REAR E ERA A REE RE EA EEE ERE RR ER EAE REE RESEERERES EERE EERE EES 





SEQ 0044 


AUTOS i zer: 
excSUPprg P ;downline load the program autosz ; 
ESP4: bit #bit15,cmdrng+2 ;test ownership of ring make sure we own it 
bne ESP4 ;if we don't own it wait until we do 
Mov #50,cmdlen ;load lenght of packet to be send 
movb #0,cmdlen+2 ; load msg type and credit value 
movb #dup.id,cmdlen+3 ;load DUP connection ID 
clr CMDpak +2 
clr CMDpak +4 
coo nga CMDpak +10 load ode 
mov .esp, + ;load up opc 
mov #0 ,C +12 ;no stand alone modifier 
mov #<autoend-autosz>,cmdpak+14 ;load length of prg into buffer 
clr cmdpak +16 ; 
mov #autosz,cmdpak +20 ;starting address of downline load prg 
clr CMDpak +22 
clr CMDpak +24 
clr CMDpak +26 
clr CMDpak +30 
clr CMDpak +32 ; 
clr CMDpak +34 ;overlay buffer descriptor 
clr CMDpak +36 
clr CMDpak +40 
clr CMDpak +42 
clr * 
clr ak +46 
mov #RFD4 , dvector ;New vector place : 
Mov #rsppak ,rsprng ;load response packet area into ring 
Mov pape ogee ;load command packet area into ring 
Mov #140000 ,RSPRNG+2 ;Port ownership bit. 
MOV #o i t15,CMDRNG+2 : 
jsr pc ,POLLWT ;Go to poll and wait routine. 


sada iadiok doi daioiok talaiidol doo idoiiiiok daiaioiotok dak taioicktai ttt ki tt eae 
RFD4: sIntr to here. 


add #6 , Sp :fix stack for interrupt (4), pollwt subrtn (2) 

mov #intsrv,@vector ;Change vector ’ 

jsr pe , RSPCHK :Go to routine that will check on 

;the response recvd from the mut. 

Recvdata ,#msglen sget results of auto size ; 
a #bit15,cmdrng+2 ;test ownership of ring make sure we own it 

bne RCDS ;if we don’t own it wait until we do 

MOV #34 ,cmdlen ;load lenght of packet to be send 

movb #0, cmdlen+2 ; load type and credit 

movb #dup.id,cmdlen+3 ; load connection ID 

ine cmdpak ;load new CRN 








G4 
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0045 
Globel subroutines 
025114 005037 002454 clr cmdpak +2 
025120 005037 002456 clr cmdpak +4 
025124 005037 002460 clr cmdpak +6 
025130 012737 002462 mov #op.rec,cmdpak +10 ;load up opcode 
025136 005037 002464 clr cmdpak +12 ;no modifiers 
025142 012737 14 002466 mov #msglen,cmdpak +14 
025150 005037 002470 clr cmdpak +16 
025154 012737 O02 002472 Mov #msg,cmdpak+20 ;load address of buffer describtor 
025162 005037 002474 clr cmdpak +22 
025166 005037 002476 clr cmdpak +24 
25172 005037 2500 clr cmdpak +26 
025176 005037 002502 clr cmdpak +30 
25202 005037 002504 clr cmdpak +32 
025206 012777 025250 155112 Mov #RFDS,a@vector ;New vector place 
025214 012737 002352 002526 MOV #rsppak ,rsprng ;load response packet area into ring 
025222 012737 002452 002532 MOV somaipek -Caaers ;load command packet area into ring 
025230 012737 140000 0025350 mov #140000 , RSPRNG+2 ;Port ownership bit. 
025236 012737 100000 002534 MOV #b i t15.CMDRNG+2 
025244 737 022760 jsr pc ,POLLWT ;Go to poll and wait routine. 
a dodedo jada oaoo ooo oiiioiioaiokdaiiaiiaiiaiootaiiotot iottoitot tok dit 
025250 RFDS: ;Intr to here. 
025250 27 000006 add #6, Sp sfix stack for interrupt (4), pollwt subrtn (2) 
025254 012777 032650 155044 MOV #intsrv,@vector ;Change vector 
025262 004737 030654 jsr pe ,RSPCHK ;Go to routine that will check on 
sthe response recvd from the mut. 
;it will check the cmd ref 
snum, the endcode and status. 
1984 025266 000207 rts pe ;return 











H4 
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Globel subroutines 


SEQ 0046 


1986 
eed .sbttl AUTOSZ 
+950 s A AAAAEAEEAEAAEEAEAEREEAAEAERERERSEAEAARAAEKERARSEAKEEAEEEE EEE EEE EEE SDE 
H z 
1991 ; This is the actual down line loaded code which is placed in 
1992 ; the RAM inside the RQDX3 controller. This code firgures out the 
1993 ; cylinder size of the drive. From the cylinder size we can determine 
1994 ; ich drive it is. If the drive is a winchester we will step the drive 
1995 ; into the inner most cylinder. The inner most cylinder for most drives 
1996 ; is the parking cylinder. 
1997 
1998 3+ 
hs ; AUTOsz - Determine Drive Type and Size 
2001 : Input: None. 
2002 ; 
5004 _— A Special Type Me 
; cia ssage: 
5005 pe ype ge 
2006 : $e eee -------- $o------------ + 
rad ; } Special Msg #10 (decimal) )} +00 
2009 ; ) Status } +02 
2010 t POP we SF POSS SS eS eS ee ee + 
ois ; } Innermost Cylinder for Unit 0 } +04 
ote : } Innermost Cylinder for Unit 1 } +06 
2015 } Innermost Cylinder for Unit 2 } +10 
; Peer wr nn em eee ee wee eer rere rrr + 
2017 ; } Innermost Cylinder for Unit 3 } +12 
2018 e Peer Ree Perea Peoeseeee ee + 
2019 ; 
2020 ; where, status = 0 for success, 
2021 ; 1 for UDC never went done, 
2022 ; 2 for UDC never interrupted, 
Soe ; 3 for Seek Failed 
2025 ; cylinder = 3 for RX33 Flopp 
5036 in > for RX50 Floppy 
2027 ; 0 to 2048 for Winnie, 
esse ; -1 for Non-existent unit 
2030 ; Note: The Unit Numbers will correspond to the numbers that the Host 
2031 ; would use (i.e., not necessarily the DRVSEL numbers). Thus, 
ooss : Winnies will always precede Floppies and “null devices”. 
ots dgeiguidoaiiiodieokieiiiiciioidaioioiaiioioiiok tei oiuiok iui adtabttotoioiotaieit tata ie 
2036 025270 AUTOsz: 
2037 .dsable AMA 
2038 025270 001204 .word <AUTOend-AUTOsz> ;Byte count low TEST HEADER 
2039 025272 000000 .word 0O sbyte count high 
2040 025274 000000 .word 0 ;overlay low 
2041 025276 000000 .word 0 ;overlay high. 
025300 101 125 124 .ascii /AUTOSZ/ :6 character asciz name 


-MAIN. 
AUTOSZ 


025303 


2044 025306 
2045 025310 
2046 025311 
2047 025312 
2048 


2049 025314 
2050 025314 


2072 025414 
2073 

2074 025416 
2075 025424 
2076 025426 
2077 

2078 025432 


2079 025432 
2080 st etrs 


2082 025444 
2083 025446 


2096 025504 
2097 025510 





013746 


112737 


001002 
005267 


010200 
012703 
012720 


123 


000670 


000716 
100006 
100016 
000000 


000766 
000004 
177777 


132 


140006 


AUTO:: 
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nop 


177 


; Executable Code Starts Here 


; Taken 


sizwt: 


sizset: 


mtps 
clr 
mov 
mov 
mov 


from RQDX3.MAC m$init code: 


MOv 
MOV 
add 
MOv 
MOv 
mtps 


#op . res , dtw$cmd 

#op.srp+11,a#wscmd 

#40 , Dt#tw$dat 

s$$ 

a ,atr$fps 

Sop dd, Btusemd 
.dd, c 

#1000, r0 


rQ 
si zwt 


#20000 , d#r$fps 
sizset 


s$$bug 


pc, r0 
#<s$$ude-.>,rd0 
r0 , a#i $ude 


pc, r0 
#<s$$rti-.>,r0 
r0,a#i $clk 

rO , d#i $sec 
#ps0 


; Go Size the Drives 


siznon: 


MOV 
mov 
MOV 
Mov 
add 
mov 
mov 





SEQ 0047 


;version number 

; flags 

; timeout 

;start down line loaded test 


sstart down line loaded test 


Set up our own interrupts handlers 
clear the leds 

Save the MSCP handlers - VDC 

coe ae 


. Sector 


reset the smc9224 chip 
enable interrupts 


assume the bug is not present 
is the ECO wire there? 
definitely not 

- deselect all drives 

wait for a bit 


is the ECO wire there? 


nope 

say it is 

Set up handlers 

Use our own ude handler 


Make clock interrupt rti 
Make sector interrupt rti 
Make it good 


Save Registers 
Save Registers 


Point to Unit Descriptor Table 


Initialize all Unit Descriptors 
coe to “Non-Existant Unit” 








-MAIN. 
AUTOSZ 


2099 025514 
2101 025516 
3103 025522 
2105 025522 

06 30 


CiOsE GIOTD 
rPOowoo-~) 
oo 
BR 
mtg 
ze 


apasesseseusas 
ssseseseseess 
. senior 
~w ~ ¥ 

mw mw 


ser 
% 
VI 
ot 
it) 


077303 
012703 


012737 
012737 
005037 


032737 
001121 


012737 


140002 
140022 


140022 
140020 


140006 


140002 
140022 
140020 


140022 
140010 


sizlop:: 


sizfps: 


sizflp: 


steprx: 


stepout: 
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r3,siznon 
#2.,r3 


#bit3,d#rw$pll 
#op.srp+4, d#wscmd 
Otw$dat 


atw$dat 
#top.srp+8. ,d#w$cmd 
#rd.mode $dat 


sizfps 
sizend 


tbhitl4+bit15,atr$fps 
sizwin 


#bitO+bit3, d#rwspll 
top .srp+/7,a#wscmd 
#retry , d#w$dat 
r3,r0 
#op.srx,rd 

doudc 


r4,#160. 


#op.srp+9. , dt#wscmd 
#b i t4, avtr$dat 


sizend 


r4 
steprx 


Set Drive Count to logical unit 0 


Until We Get All of Them +#«# 
it is a Winniets 


** L 

**«Check if 

Set up Plictl Csr 

Set up UDC registers 
Head 0 


“ Cylinder 0 


Set mode for winnie 


Select the Drive 
cae ? ee 
Do UDC command 
Okay? 


» something is screwed up 


Winnie? 
Yes, go set cylinder 


count 


xx Check if it is a Floppy ** 


Set Plictl CSR 

Set up UDC nea, etere 
-.. retry = 7 
Select t 
sie gentoo 
Do UDC command 
Okay? 


Drive 


Nope, something is screwed up 


Step counter 


SEQ 0046 


*x« Step In & Out Until Track 0 Found #+ 


How many times have 
Enough? 

Set up UDC registers 
At track 0? 

Yes, then go check F 
Is step counter >= 8 


Is step counter <= 1 
Step in one track 
Do UD 


C command 
Okay? 


we step? 


loppy type 
0? . 


30 ? 


Nope, something is screwed up 


St out one track 
Do UDC command 
Okay 


? 
Nope, something is screwed up 


Increment step count 


xx Bottom of find track 0 loop ** 


er 





2156 025754 


1 
89 026116 

20 
191 026124 
92 30 


2197 026150 
2198 

2199 026152 
2200 026156 


1 
2202 026160 
2203 ety 


2210 026202 
2211 


112737 
132737 
00 


012712 
000452 
005012 
012700 
004767 


005700 
001033 
112737 
132737 
001003 
021227 
002757 
011201 
005301 
012700 
004767 
001011 
077107 


062702 


000111 
000020 


000104 
000001 
000054 
000346 
000111 
000020 
000002 
000003 


000007 
000276 


000003 
000111 
000020 


000005 
000236 


000111 
000020 


004000 


000005 
000172 


000002 


140022 
140010 


140022 
140020 


140022 
140010 


140022 
140010 


140022 
140010 


sizrx: 


sizrx3: 


Sizwin: 


SiZin: 


park it: 


i$: 


sizrd: 
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#top.srp+9. , d*wtcmd 
#b i t4,ad#r$dat 
sizdarv 

#op.srp+4, dtwscmd 
#1,d0tw$dat 


sizend 
#top.srp+9. , d#w$cmd 
#bit4, d#r$dat 
sizrx3 

#2,(r2) 

sizrd 


sizend 


#versekO,rO 
#op.srp+9. , di#wscmd 
#b i t4, der$dat 
sizend 


sizend 


top. srp+9. , dt#twscmd 
#bit4, dtr $dat 
park it 


(r2),#2048. 
sizin 


; Mark 


SEQ 0049 


** Check Floppy type RX50/RX35 ++ 


Set up UDC registers 


At track 0? 
Set up UDC registers 


Select the Drive 

... Op.sd.rx=54 

Do UDC command 

Okay? 

Nope, something is screwed up 
Set up UDC registers 

At track 0? 

No, it's an RX50 

it as an RX50 


Yes, mark it as an RX33 
Go do next drive 


It's a Winnie - Set Count to 0 


Step out one track 

Do UDC command 

Okay? Bote 2 

Nope, something is screwed up 


Assume that seek to 0 failed 
At Cylinder 0? 


Nope, something's wrong 


x* Step In Until Track 0 Found +** 
Up Cylinder Count 

toy OF One Cylinder 

Do UDC Command 

Okay? ; 

Nope, something is screwed up 


At Cylinder 0? 
If so, skip to bump up 
. descriptors 


SMC Cylinder Limit Reached? 
ok Bottom of Step In Loop ** 


step in, to inner most cylinder 

get total number of cylinders : 

we want one less then recalibrate cylinder 
Ag One Cylinder 

Do UDC Command 

Okay? aS 

Nope, something is screwed up 

xx This was a Winnie ** 


Bump Pointer to Next Unit Descriptor 











4 
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SEQ 0050 
AUTOSZ 
026206 sizdrv: | ; ** Check Next Drive ++ 
026206 005203 inc r3 ; Drive Count 
2216 026210 020327 000005 cmp r3,#5. ; All 4 Drives Checked? 
2217 026214 003002 bgt sizend } see 
$515 026216 000167 177300 jmp sizlop ; ** Bottom of Loop *+* 
2220 026222 sizend: ; ** Send Status and Table ++ 
2221 026222 0067 000234 Mov rd, t ; Save status 
2222 026226 012700 mov #top.dd,r0 ; Deselect Drive 
2223 026232 767 000130 jsr pc , doudc ys 
2224 026236 012603 MOV (sp)+,r3 ; Pop 
2225 026240 012602 mov (sp)+,r2 ere 
2226 026242 012601 mov (sp)+,ri . oes 
2227 026244 106427 000340 mtps 7 ; Put the MSCP Handlers Back 
2228 026250 012637 100016 mov (sp)+,a#i $sec } ees 
2229 026254 012637 100006 Mov (sp)+,ad#i $clk ; 
2230 026260 012637 100002 Mov (sp)+, d#i $ude ; 
rth 026264 106427 000000 mtps sO . wine 
ret 026270 sizexi:: ; ** Okay, talk to the Host ** 
rst +s ;PutData,msg,msglen - Send Response to Host 
2237 026270 010700 Mov pc, r0 ;figure the relative address 
2238 026272 062700 000166 add +t ;... of the buffer 
2239 026276 012746 000014 MOV #msglen, -(sp) load lenght in bytes of the buffer 
2240 026302 01004 Mov r ,-(sp) ;load relative address of the buffer 
2241 0263 013746 000146 Mov a#146,-Csp) load location of routine in microcode 
2242 026310 004736 jsr pc, a(sp)-+ ;call Put Data routine in Uc 
Loh 026312 022626 cmp (sp)+,(sp)+ ;fix stack 
sone ; Terminate Supplied Program 
2247 026314 013700 000142 MOV a#142,r0 :load location of routine in microcode 
2248 026320 004710 jsr pe, (rd) ;call Terminate routine in 
2249 026322 000207 rts pc aes 





-MAIN. 
AUTOSZ 


M4 





000002 


007570 


010146 
005067 


012701 
005767 
001005 
077104 
077007 


012700 
000410 


000062 
140022 
004000 


007570 
000042 


000002 


140006 


s$$udi : 


3+ 
; Return from Interrupt 


s$$rti:: 
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rti 


; UDC Interrupt Handler 


s$$ 
s3sud? 


#20000 , d#r$fps 


s$$rti 


#35, ( 


sp 
#240 ,(sp)+ 


s$$rti 


s$$flag 


- Taken from RQDX3.MAC m$udc code: 





SEQ 0051 


UDC Handler 
is the ECO wire there? 


nope 
is the 9224 interrupt line set? 
if not, must be a bogus interrupt 


get interrupt status 

clear bits of no interest 
valid status? 

no, it's a bogus interrupt 
set the flag 


_ just quit 


DOUDC - Do a UDC Command 


This routine sends a commands and waits an interrupt or 


Input: 


Output: 


mseca = 30.*132. 


msend: 


until timer expires. 


rQ 
r0 


#2048. ,rO 


#mseca,rl 
s$$flag 


msend 


ri,msin 


rO,mswait 
#eruint,ro 


douret 


= command 


= 0 for success, non-zero for failure 


Max Step Rate + some * 
loop for 7.5 MHz T11 clock 


**x Do a UDC command ** 

save rl 
Clear ude flag (interrupt pending) 
Send the comm f 

Set the rom timer (max cylinders) 


** Wait ** 

set one millisecond counter 

** Top of Inner Loop ** 

3.60 ude interrupted 

1.60 out if ude interrupted 

2.40 Total: 7.60 a7. z=> 
8.5457 36.67MHz 

*x* Bottom of Outer Loop ** 

Never Interrupted 


**x Interrupt Happened ** 
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AUTOSZ 





N4 


2308 026430 


2317 026452 
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012 
013701 140012 
32701 0 





SEQ 0052 


; Assume Never Done 

; Get the return status 
; All done yet? 

; If so, pop out of this 
; Assume everything's ok 
; «* Return *« 


; Back to caller 
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SIZER Supplied Program Date 


SEQ 905% 


2319 .sbttl SIZER Supplied Program Date 

$351 $ -psect cS$date 

$355 Special Stuff 

5354 ee 

2325 026454 s$$bug: .blkw 1 ; ECO Wire 

gsee 026456 s$$flag:.blkw 1 ; UDC flag 

see ; Packet Area 

2330 026460 012 140 msg: : .byte 10.,.b.spl ; Final Mess 

2331 026462 msgdat: .blkw ; Status and Unit Descriptor Table 
2332 000014 — = .-msg ; Mess Length (Byte Count) 
ity 000002 untdsz = 2. ; Unit Descriptor Length 
2335 enable AMA 

2336 026474 AUTOend: 





| C5 





~ 
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2352 026506 
2353 026514 
2354 026516 
2355 026520 
2356 026520 
2357 026524 
2358 

2359 


2360 

2361 026526 
2362 026552 
2363 560 


2 S2 
2385 026754 
86 776 


2390 032 
2391 027036 
ein 027036 
2394 027062 


123727 
001401 
000207 
123727 
001401 
000207 


005737 
001457 


023727 
001010 


023727 
001010 


023727 
001010 


000207 


012701 
005002 
022711 
001013 
000137 
022711 
001013 
000137 
022711 
001013 
000137 


026461 
026460 


026462 


026462 
026462 


026462 


026464 
177777 


027522 
000002 
027522 
000003 


027522 


000140 


000012 


000001 


000002 


000003 
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SIZER Supplied Program Date 





SEG 0054 


5 FREESE EEEESESESRESEEASESSESES SESS EAA SESS SE SSS AEA SES EHAE SEES ESE SEER SE EE ES 


findings. 


AUTOdis: 


1$: cmpb 


2$: 


printb 


; AUTOdispla 
; This routine will di 


the results of the autosi zers 


It will say weather the autosizer errored or not and 
; what drives it found. 


‘ 
5 EKER EREERAEEEAAEAESEAEEEEESE SEERA E REESE EAR SSEEES ERE SEAR ET ESET EES 


msg+1,#.b.spl 
1$ 


pc 
msg, #10. 
2$ 
pc 


bat 


Failure Code 


eee ane 
+2,%1 
ile 


#ASMSG2,,r2,(ri) 


;check if Special Message 
;if not then no info to print 
;so just return 


; check message number 
;return if msg number doesn't match 


;test completion status of Autosizer 


zero no error report the findings 


;if not zero then there is an error 


Print Autosizer Failure Code 

Is it a UDC never done error ? 

No, check for next code 

Yes, Tell error type 

Is it a UDC never interrupted error ? 
No, check for next code 

Yes, Tell error type 

Is it a seek error ? 

No, reinitialize ctrl 

Yes, Tell error type 


;return 


print Autosizer findings 
first cylinder entr 

Start with unit r zero 
Is unit Non-existant ? 

No, check for RX50 

Yes, tell it is non-existant 


Is unit an RX5O ? 
No, check for RX33 
Yes, tell it is an RX50 


Is unit an RX33 ? 
,~ & it is a Winchester 
Yes, tell it is RX33 


it’ is a WINCHESTER . 
Tell it is a Winchester with so many cylinder 








| 05 
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Program 


SIZER Supplied 
2395 027062 


2400 027116 
2401 
2402 027122 
UIT table 
2403 027126 
2404 027130 
T table 
2405 027134 
2406 027136 
2407 027156 
2408 
2409 027160 


VIT table 
2410 027164 
2411 027166 

UIT table 
2412 027172 
2413 027174 
2414 027214 
241 
gate 027216 

UIT table 
2417 027222 


oe 


2418 027224 
UIT table 
2419 9829230 
2420 027232 
2421 027252 
2422 

ete> 027254 
UIT table 
2424 027260 
2425 027262 
UIT table 
2426 027266 
2427 027270 
oiee 027310 
ss 027312 


UIT table 
2431 027316 

























ad 


w 


Cad 


Ls 


2445 Oe74ie 


023711 


001403 
023711 


001012 
000137 
023711 
tt 
001011 
000561 
023711 
001403 
023711 
001011 
000542 
023711 
ut 
001011 
000523 
023711 


001403 
023711 


001011 
000504 
023711 
001403 
023711 
001011 
000465 
023711 
rr 
001011 
000446 


023711 
901405 


Date 
003102 cmp UITO-UITsiz-2,(rl) cylinder 
beq 710$ 
003100 cmp UITO+UITsiz-4,(rl) cylinder 
bne 72$ 
710$: printb #DrvITx0 rd51 
027522 jmp 20$ 
003206 72$: cmp VIT1+UITsiz-2,(r1) cylinder 
beg 720$ 
003204 cmp UIT1+UITsiz-4,(r1) cylinder 
bne 73$ 
720$: printb #DrvTxl rd52 
br 20$ 
003312 73$: cmp UIT2+UITsiz-2,(r1) cylinder 
beq 730$ 
003310 cmp UIT2+UITsiz-4,(r1) cylinder 
bne 74$ 
730$: rintb #DrvTx2 rd52 
oe 20$ 
003416 74$: cmp UIT3+UiTsiz-2,(r1) cylinder 
beq 740$ 
003414 cmp UIT3+UITsiz-4,(ri) cylinder 
bne 75$ 
740$: rintb #DrvTx3 rd53 
r 20$ 
003522 75$: cmp UIT4+UITsiz-2,(rl) cylinder 
beq 750$ : 
003520 cmp UI14+UITsiz-4,(r1) cylinder 
bne 76$ 
750$: rintb #DrvTx4 rd54 
Br 20$ 
003626 76$: cmp UITS+UITsiz-2,(r1) cylinder 
beq 760$ : 
003624 cmp UITS+UITsiz-4,(ri) cylinder 
bne 77$ 
760$: a #0rvTx5 rd3l 
cr 20$ 
003732 77$: cmp UIT6+UITsiz-2,(ri) cylinder 
beq 770$ : 
003730 cmp UIT6+UITsiz-4,(rl) cylinder 
bne 78$ 
770$: rintb #DrvTx6 rd 
r 20$ 
004036 788; cmp TUT Tsiz-2.(r)) nif culinder # 
ansanms beg 780$ Ps ae eee ee a oe | ~_:8f «ssl iandanw 


# equals UIT 


# equals UIT 


# equals UIT 


# equals UIT 





SEQ 0055 


is the correc 


is the correc 


is the correc 


is the correc 


is the correc 


is the correc 


is the correc 


is the correc 


is the correc 


is the correc 


ig the correc 


is the correc 


ig the correc 


is the correc 


a. ~ .* 


i@ the correc 


J 






2447 027420 
2448 027422 


SIZER Supplied 


t 


2452 027450 
2453 027452 


475 
2476 027542 
2477 027542 
2478 027550 
2479 027552 
2480 


2481 027556 


2495 


2504 030104 
2505 030112 


ALES, 


20 
2507 030122 
2508 030130 


t UIT teble 


-__— 


001011 


Program 


001493 
023711 


001011 
000410 


032737 
001402 
0001 


000515 


013700 
006300 
012737 
023760 


001503 
012737 
023760 


001474 
012737 
023760 





, 027444 023711 004142 
‘ teRhE RG VOS.03 Tuesday 10-Jun-86 


Data 


004140 


000004 
026712 


100000 
030060 


002330 


000000 
003102 


002336 


002344 
026464 


002344 
026464 


79$: 
13:21 


27$: 


5 AAA AE AERA AREER EERE RE EERE EAE AEE EAE RA ERE ERE ERE EERE EERE EEE ES 


This routine builds the UIT table or get the UIT table 
depending who the questions are ans 
If the unit_is a listed or regconiz 
yg Be ~ ya If not we will have to ask all the questions to build 
a e. 


igeogoook ago iat aia tu dak ilk doioitobiidokiiciukdok iti tk ia ae & 


BLDUIT: 


manbld: 


bit 
beq 
jmp 


printf 
printf 
printf 
printf 
printf 
printf 
printf 
printf 
printf 
printf 
printf 


cmp UI Tdf+UITsiz-2.(rl) 
Page 25-2 

beq 790$ 

cmp UITdf+UITsiz-4,(rl1) 
bne 80$ 

_—— #Orvi xc 

r 20$ 

printb #ASMSGr 

tst (ri)+ 

inc r2 

cmp ro, #MaxDrv 

beq e7$ 

jmp 26$ 

rts pc 


#oiti5,untflgs 
manbld 
autobld 


#0rvixa 
#D0rvTxb 
#D0rvTx0 
#DOrvIxi 
#D0rvTx2 
#Drvtx3 
#0rvTx4 
#O0rvTtx5 
#DrvTx6 
#Orvtx7 
#Drvtxec 


GMANID unt.nbr,UIN,0,17,0,10,no0 


br 


autobld: 


i$: 


uitloc 
unit,rd 
rQ 


#0 ,uin 
UITO+UITsiz-2,msg+4(r0) 
2$ 

#1,uin 
UIT1+UITsiz-2,msg+4(r0) 
2$ 

#2,uin 
UIT2+UITsiz-2,msg+4(r0) 





wered to the manual questions. 
able drive we will use a prebuilt 


_$ ———$— $< 





:if cylinder ¢@ equals UIT table @ this is the correc 


SEQ 0056 


;if cylinder # equals UIT table ¢ this is the correc 


31 custom rd 


; "Unrecogonized Drive" 


; Point to next unit descriptor 
; Set for next unit 

; Last unit? 

; Yes, exit routine 

; No, do next unit 


5 ig out UIT tables and their related drives 


Drive 
30 rd5i 
31 rd52 
:2 etc 
;3 etc 
34 









:GET Unit identifier number (0-7) 
;PLACE IN bits 0-3. ; er 
sno defaults person must know what Unit Ident ificat: 


;get correct table address into UI Tadrs 


;get unit number 

;get the byte offset of tbl 
;pick UIT number 0 a 

;if cylinder # equals UIT table ¢ this is the correc 


s;pick UIT number 1 


;if cylinder # equals UIT table ¢@ this is the correc 


;spick UIT number 2 a 
if cylinder # equals UIT table # this 's the correc 


—— 


rS 
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SEQ 0057 
SIZER Supplied Program Date 
030136 001465 beq 2$ 
2514 030140 012737 3 002344 mov #3,uin spick UIT number 3 
‘ ifia™ 023760 003416 026464 cmp UIT3+UITsiz-2.msg+4(r0) ;if cylinder # equals UIT table # this is the correc 
f « 
2512 030154 001456 beq 2s. 
2513 030156 012737 000004 002344 MOV #4,uiNn spick UIT number 4 
P Fh oy 023760 003522 026464 cmp UIT4+UITsiz-2,msg+4(r0) ;if cylinder # equals UIT table @ this is the correc 
& 
2515 030172 001447 beq 2$ 
‘ Dg A nae 023760 003520 026464 cmp UIT4+UITsiz-4,msg+4(r0) ;if cylinder # equals UIT table # this is the correc 
© 
2517 030202 144 beq 2. ;automatic recal feature of this drive 
2518 030204 012737 000005 002344 MOV #5,uiNn ;pick UIT number 
. uff'¢ — 237 003626 026464 cmp UIT5+UITsiz-2,msg+4(r0) ;if cylinder # equals UIT table # this is the correc 
6 
2520 03022 14 beq 2$ . 
: yg oe 023760 003624 026464 cmp UIT5+UITsiz-4,msg+4(r0) ;if cylinder # equals UIT table # this is the correc 
e 
2522 030230 001430 beq 2$ sautomatic recal feature of this drive 
2523 030232 012737 000006 002544 mov #6,uUiNn ;pick UIT number 6 as 
. Da Os op 023760 003732 026464 cmp UIT6+UITsiz-2,msg+4(r0) ;if cylinder # equals UIT table # this is the correc 
£ 
2525 030246 001421 beq a 
2526 930 012737 000007 0023544 mov #7,uUiN ;spick UIT number 7 . 
. uae 023760 004036 026464 cmp UIT7+UITsiz-2,msg+4(r0) ;if cylinder # equals UIT table # this is the correc 
\ e 
2528 030264 001412 q 2$ ; 
2529 0302 printb #efunr ;"No UIT table suitable for this drive” 
2530 030 000137 037420 jmp dropun ;drop unit and end pass 
2531 030312 2$: 
2532 030312 uitloc: : 
533 030312 012703 005000 mov #UITO,r3 ;r3 contains base address of UIT tables 
‘ 2534 030316 013702 002344 Mov UIN,re2 ;get the correct UIT table address into UlTadr regis 
er 
2535 030322 001403 + 11$ ;if UIN=0 then set table to VITO 
2536 030324 062703 000104 10$: #UITsiz,r3 selse multiply UIT size by the UIN number and add to 
base address 
2537 030330 077203 sob re,10$ 
2538 030332 010337 002320 11$: mov r3,UITadr sstore the proper address of the UIT table 
<e30 030336 000137 030344 jmp cont ;all done 
2541 030342 tblbld: ;We must build a UNIT INFORMATION TABLE | 
oc 2542 030342 000240 nop stry IRQCBI for custom built tables available thru S 
2543 030344 000207 cont: rts pc back 
Sahe a egdaigdaetoioiiaiaiioiak toda iaioiioioiok tok iiaiok idotatoi talk toioiok tok dott tet & 
2546 ; Octal number to ASCII Decimal number 
2547 ; ri = address of ascii decimal data 
2548 ; rO = octal data word 
2549 soa iediokidaiaoiok daitoitaiakdotot ii totitok tote tok ick dota tek tt to ie tb a 
2550 030346 OCTASC: 
2551 030346 010246 Mov r2,-(Csp) 
2552 030350 010346 mov r3,-(Csp) ; ; 
2553 030352 5002 clr re ;clear the decixal table pointer 
2554 030354 005003 1$: clr r3 ;clear decimal ‘ligit, | 
2555 030356 005203 2$: ine r3 sincrement decimal digit 
2556 030360 166200 030420 sub dectbl(r2),r0 ;subtract a power of ten from accumulator 
2557 030364 002374 bge 2$ ;if not negative subtract another 
2558 030366 066200 030420 dectbl(r2),r0 ;ad just accumulator so positive 
2559 030372 005303 dec r3 sadjust decimal digit 
2560 030374 062703 000060 add #60, r3 sconvert decimal to asci' 
2561 030400 110321 movb r3,(ril)+ ;mov ascii digit text into buffer 
le 030402 005722 + : POLO 








DEA4 NINAIN NN1%h1 


——_—w 


.MAIN. MACRO VOS.03 Tuesday 10-Jun-86 


SIZER Supplied 
2566 030414 
2567 0 6 


cots 030514 
2613 030516 

4 030520 
Sete 030522 


2617 030524 
2618 030526 
2619 


1 
2620 030530 
2621 030532 
2622 030534 


Program Data 


012602 
000207 


162704 
010346 
010246 
012705 
006302 


006103 
077503 


010220 


000003 


000002 


13:21 Page 25-4 





SEQ 0054 
mov (sp)+,r2 
rts pc 
dectbl: 
-word 10000. 
.word 1000. 
-word 100. = 
.word 10. 
.word ay 
.word 0 
edo odo ao ak ee EE EEE EE EE 
; ASCII DECIMAL numbers to Octal numbers 
; ri = address of ascii decimal data 
; rO = address to store octal data low word, high word 
gd dgodeooiaao a oaiiggoiioi i ioiaiuiidoi loi kdaiak cla tatoo toto tot tok tt 
mov r5,-(Csp) 
mov r »-(sp) 
Mov a 8 
Mov r2,-(sp 
clr r4 
clr r3 
clr r2 
3$: movb Crid-+,r4 
beq 1$ ;if digit equals null than all done 
; cmp r4,#60 scheck for a real number value 
; blt lbn :wasn't a real number 
; cmp r4,#71 
; bgt ask lbn ;wasn’t a real number 
sub #60 ,r4 
Mov r3,-(Csp) 
Mov re,-(Csp) ;save accum 
Mov #35,r5 ;accum * 8 
4$; asl re 
rol r3 
sob r5,4$ 
asl (sp) ;accum*2 
rol 2(sp) 
cle ; accum*8 + accum*2 
add (sp)+,re 
adc r3 
add (sp)+,r3 
add r4,r2 :;add present digit to accum*10 
adc r3 
br 3$ 
1$: mov re,(r0)-+ ;load lo number 
MOV r3,(r0) sload hi number 
MOV (sp)+,re2 srestore stack to its orginal 
Mov (sp)+,r3 
mov (sp)+,r4 





H> 
MAIN, 





SIZER Supplied Program 


-_- 


2623 030536 
2624 030540 


2679 030760 


012605 
000207 


012701 
063701 
105021 
020127 
001374 
112737 
112737 


012701 
105021 


013701 





Date 


002552 
002366 


002676 
000045 
000101 


002552 
002676 


002362 


MACRO VO5.03 Tuesday 10-Jun-86 


002552 
002553 
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MOV 
rts 


(sp)+,r5 
pc 





SEG 0059 


5 EERE EE AEERAAEEERERESEREEERERESEEEESEEAESE SARE REESE E REE EEE EEE ES 


; This routine types out the ASCII information passed 
; by the disk controller. This ASCII information is 


4 word. To fake the DRS macro routine a "#A" is 


contained in the buffer called DATARE and is offset 


b 
; ahened in front of the text. 
kook kook oo ooo ok ao a a a 


pr intx 
printx 


rts 


#datare,ri 
r ak+14,ri 
Cri)d+ 


ri1,#prgnam 
1$ 


#45 ,datare 
#101,datare+1 
#PB13 

#datare 


#datare,ri 
gg 
ri,#praqnam 
2$ i 


;get data area address of ascii info 
;add the number of byte transfered 
;put null characters into data buffer after end of ASCII inf 


;we do this to fake out the DRS macro 


;put the "#%” delimiter for the DRS macro 

sput the “A” for ascii info for the DRS macro 
;New Line <cr><lf> 

sprint the message returned from the controller 


sclear out entire data area 


pec 
Daa aa ioe totok doko eto ee EE EEE EEE EE EES 


THIS ROUTINE IS TO CHECK ON THE RESPONSE PACKET 
GOODNESS. THE 


RSPCHK : 


MOV 
mov 
cmp 


COMMAND 


REFERENCE NUMBER, THE END CODE 


; AND THE STATUS ARE TESTED. 
aE ada oaokaiogaoio i iaoiioiokiaii ici ioaiaioiiiotoi doit totoi dob tobe i ® 


1 

rsppak+12 ’ ri 
1$ 

pc 


10,dfil 


#PBlicrn,cmdpak , rsppak 


rsppak+10,ri1 


;compare CRN numbers 


;compare Opcodes 
scheck the status 
;if all checks then return 


;if all doesn't check then ea bad packet 
;Bad response packet 


sExpected CRN XXXX ,Received CRN YYYY 
scheck response opcode reply 
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SIZER Supplied Program Date 


SEQ 0060 


2680 030764 032701 000200 bit #200,ri :see if a end command response was send 
2681 030770 001010 bne 2$ 
2682 030772 printx #PBliend ;No end bit in response packet endcode 
2683 031012 022701 000201 2$: cmp #201,r1 
2684 031016 001010 bne 3$ ;check if Get Dust Status command 
2685 031020 printx #PB11GDS 
2686 031040 022701 000202 3$: cmp #202,r1 
2687 031044 001010 bne 4$ ;check if Execute Supplied Program 
031046 printx #PB1iilESP 
031066 022701 000203 4$: cmp #203,r1 
031072 001010 bne 5$ ;check if Execute Local Program 
031074 printx #PB1ilELP 
2692 031114 022701 000204 S$: cmp #204 rl 
2693 031120 001010 bne 6$ scheck if Send Data 
2694 031122 printx #PB11SD 
0311 022701 000205 6$: cmp #205,r1 
2696 031146 001022 bne 7$ scheck if Receive Data 
7 O31 rintx #PBilRD 
2698 031170 rintb #PBSFO,r3,r5 ;"type xxx, message number xxxxx is unknow to this program” 
2699 031214 022701 000206 7$: cmp #206 ,r1 ms 
2700 031220 001010 bne 8$ ;check if Abort Program 
2701 031222 rintx #PB11iAP 
2702 031242 8$: rintb #PBlliop,cmdpak+10,rsppak+10 
orOs ;CMDpkt opcode XXXX,RSPpkt opcode YYYYY 
2705 031272 013701 0023564 MOV rsppak+1l2,rl :-find out what kind of status we have 
2706 031276 022701 cmp #0. ,r1 
2707 031302 001010 bne 10$ 
031 printx #pb11is0O ;status: successful 
2709 031324 022701 000001 10$: cmp #1.,r1 
2710 031330 001010 bne 11$ 
2711 031332 printx lisi :status: Invalid Command 
27l2 031352 022701 000002 11$: cmp wri 
2713 031356 001010 bne 
031360 printx 1is2 :status: No Region Available 
2715 031400 022701 000003 12$: cmp #3.,r1 
2716 031404 001010 bne 13$ 
2717 031406 printx *#pblis3 sstatus: No Region Suitable 
2718 031426 022701 000004 13$: cmp #4.,ri 
2719 031432 001010 bne 14$ 
2720 0314 printx 11s4 ;status: Program Not Known 
2721 031454 022701 000005 14$;: cmp #5.,r1 
7ee 031 001010 bne 15$ ; 
2723 031462 printx #pbiis5 ;status: Load Failure 
2724 031502 022701 000006 15$: cmp #6. ,r1 
031 001010 bne 16$ 
2726 031510 pr intx 11s6 ;status: Standalone 
2727 031530 022701 000011 16$: cmp ooh 
2728 031534 001010 bne 19$ 
729 031536 printx *#pblis9 sstatus: Host Buffer Access error 
2730 031556 19$: 
2731 031556 Printb #PBlists,rsppak+12 ;Response packet status XXXX 
ois¢ 031 000137 037420 jmp dropunt ;drop unit and go on 
27 


; (ooo iookok kiitos kee ee eee EE EES 





.MAIN, 
SIZER Supplied Program Data 





2737 

2738 

2739 031606 
2740 031606 
2741 031612 
2742 031614 
2743 031616 
2744 626 
2745 031630 
2746 634 


2 764 
2759 031766 
760 006 


0 
2781 032240 
2782 032244 
2783 032246 
2784 032266 


2792 032350 
2793 032370 


032714 
001001 
207 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 
022701 
001010 
022701 
001010 
022701 
001010 
022701 
001010 
022701 
001010 
022701 
001010 
022701 
001010 


022701 


100000 


001000 


100001 


100002 


100003 


100004 


100005 


100006 


100007 


100010 


100011 


100012 


100013 


100014 


100015 


100016 


100017 


100020 


100$: 


1$: 


2s: 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


10$: 


11$: 


12$: 


13$: 


14$: 


15$: 


16$: 
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BIT FIFTEEN TEST 
POP Teer eT eT eT Ter eT eT Teverererererrrrcrt rrr tte ttt ttt r ttt ttt rrr titi r 


BITiST: 


#bit15,(r4) 
100$ 


pc 
9,dfi2 
(r4),ri 
#1000,r 
$ob1201 
aie wil 


$ 
#pb1202 
lea ri 


1203 
ect ri 


sss, ri 


1205 
SLeEE ri 


$pb1206 
petal ri 


1207 
#100007, ri 


#ob1208 
9$ 


#pb1209 
#100011,r1 
$p61210 
#100012,r1 
top1211 
Sail 


12 

1212 
p00Ct4,r1 
$pb1213 
— 


1 
1214 
#1000163 


i 

1215 
2h00017.r1 
16$ 


1216 
#100020, r1 


;Fatel SA error 


SEQ 0061 





KS 


——_— 


.MAIN. MACRO VO5S.03 Tuesday 10-Jun-86 13:21 Page 25-8 ™ 
Q 0062 

SIZER Supplied Progrer Date 

2794 032374 001010 bne 17 

2795 032376 printx #pb1217 ; 

2796 032416 O22701 100021 17$: cmp #100021,ri 

2797 032422 001010 bne i8$ 

2798 032424 printx #pb1218 ; 

2799 032444 022701 100022 18$: cmp #100022,r1 

2800 032450 001010 bne 19$ 

2801 032452 printx #pb1219 ; 

2802 032472 022701 100023 19$: cmp #100023 ,r1 

2803 032476 001010 bne 20$ 

2804 032500 printx #pb1220 : 

2805 032520 022701 100024 20$: cmp #100024, ri 

2806 032524 001010 bne 21$ 

2807 032526 printx #pb1221 F 

2808 032546 022701 100025 21s: cmp #100025,r1 

2809 032552 001010 bne 22$ 

2810 032554 printx #pb1222 ; 

2811 032574 022701 100026 22$: cmp #100026 ,r1 

2812 032600 001010 bne 23$ 

2813 032602 printx #pb1223 ; 

2814 032622 23$: 

2815 032622 printb *#pbl2,ri ;SA value: xxxxx 

te 2644 000137 037420 jmp dropunt ;drop unit and go on 

2818 ddoogok dodook & 4 tea oo iidoio iii tok iok ik dolotoioiok iotok tok de tot kik ee 

eeap ; Unexpected Interrupt Server 

2821 dgoe edo ooiok iaaiigkok kia ioiaiiidoiiok tactiok dob iti kt beat 

cass 032650 intsrv: 

2824 032650 ERRSF 8,sf100 ;Fatal SA error 

2825 032660 docln ;do clean up and auit 

east 032662 000137 037420 jmp dropunt ;drop test unit and <nd pass 

2828 





E 
= 
* MAIN * 
SIZER Supplied 
2830 032666 
2831 032666 
2832 032670 
2833 032672 
2834 032674 


283 
2836 032674 


2851 

2852 032756 
2853 032762 
2854 032766 
2855 032772 
At 3 032776 
2857 033002 
2858 033006 
2859 


2863 033026 

2864 

2865 033032 

2866 033036 

2867 033044 

2868 033050 

2869 

2870 033052 

2871 033062 

2872 033070 

2873 

2874 033072 

2875 

2876 033076 
106 

5879 033110 

2880 

2881 033112 

2882 

2883 033114 


2886 033116 





Program 


177777 
177777 
177777 


012737 
005237 
023737 
001002 
000137 


000714 


Data 


177777 


002310 
002310 


033114 


002310 


002012 


BGNPROT 
. WORD 
-WORD - 
. WORD 

ENDPROT 
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“2 
1 
-1 


BGNINIT 
READEF 
BCOMPLETE 
READEF 
BNCOMPLETE 
SETUP : 


NEXT: 


1$: 


conton: 


1$: 


$2: 


$3: 


$4: 


ABORT: 
END: 


#EF . CONTINUE 
conton 

#EF .NEW 
next 


#-1,LOGUNIT 


LOGUNIT 
ee Ae 
ABORT 


GPHARD LOGUNIT ,PLOC 
BNCOMPLETE NEXT 


Mov 
mov 
MOV 
MOV 
mov 
mov 
mov 


clr 
clr 
clr 
clr 


mov 
MOV 
clr 
br 


ERRDF 
dodu 


br 


DOCLN 


ENDINIT 


ploc,rd 

ed tbl 

r0)+, ipre 
pe pat 
C(rO)+,unit 


(sp)+,a#4 


sg 
rspl,r 
(rid- 
r0,$4 


end 





SEQ 0063 


;Sequential example 

;Continue command? 

;Yes, get no P-table but still initialize 
;New pass 

Sif net new then go to next unit number 
;Initialize logical unit nor 


;sPoint to next logical unit 
;Have we passed maximum? 


‘Yes. abort the pass 
;Get the P-table 
;if not available get next unit 


;store the Ptable address for unit 
sstore IPreg address into register 
;store vector 

;store logical drive number 

;store the serial number 


sbasic initialization stuff 


stest to see if controller is there 
;get controller into know state 
;NXM trap at controller IP address 
;drop unit 

get new unit 

smove value back into location 4 


sclean out all packets and interrupt flags 
sand the command area 


;Do clean-up and abort the pass 
;Finished 








MS 
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SIZER Supplied Program Date 


2887 
2888 
2889 033120 BGNAUTO 
2890 033120 DODU LOGUNIT 
2891 033126 ENDAUTO 
2892 
2893 033130 BGNCLN 
2894 033130 005077 147170 clr aIPreg ;get controller into know state 
2895 033134 Break ;waste some time 
2896 033136 ENDCLN 
2897 
2898 033140 BGNDU 
2899 033140 printf #DRPunt,unit 
ENDDU 
2901 





SEQ 0064 








-MAIN. 


SIZER Supplied 


2903 033166 
2904 033166 
2905 033172 
2906 033200 
2907 033202 


arked 


er 


ote 


| 


2908 033206 
2909 033214 
2910 033216 


or in auto mo 
2911 033224 


2912 033232 
2913 033234 
2914 033240 


2915 
2916 033244 
2917 033244 
2918 033250 
2919 033270 
2920 033270 
2921 033272 
2922 033274 
3 033300 


2924 
2925 033314 


2928 033526 
29 


30 033326 
2931 033352 
coae 033356 


Program Dats 


001403 
042737 


032737 
001011 


000411 
012737 


012737 
012737 


032737 
001374 





923550 
010000 


037420 
000023 
100000 
100000 
sie 


147054 


002322 


002322 
037420 


023550 


100000 


047506 
046522 
052101 
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002336 


002340 


002336 
002336 


002336 


13:21 Page 27 

BGNTST 1 
isr pc, hrdint 
it #biti2,untflgs 
beq 3$ 
jmp dropunt 

3$: —_ #Mraqdx3,mdinbr 

q 

bic #biti5,untflgs 

2$: bit #bitiS,untflgs 
beq 
jsr pc, AUTOsizer 
jsr pc ,AUTOdis 

1$: 
clr aiPreg 

printb #ASMSGT 
Pemd: 

br 4$ 
br 3$ 

4$: clr boot 

GMANIL bot . dev e BOOT "See 1 ° YES 
tst BOOT 
-— some 
Jmp ropun 

3$: 

: yer pc, ,hrdint 
printb #pb9 ,mdilnbr 
printb #pb10,mcdnbr 

bit #biti5,untflgs 
bne 1 
GMANID ASK. prg,PRGnam,A,-1,6.,6.,yes 
br 2$ 
1$: 
MOV #"FO,PRGnam 
MOV #"RM, PRGnam+2 
os MOV #"AT,PRGnam+4 
EXLCPRG PRGnam 
ELP6: bit #bi1t15,cmdrng+2 
bne ELP6 
Mov #22,cmdlen 
movb #0 ,cmdlen+2 
movb #dup.id,cmdlen+3 
inc cmdpak 
clr cmdpak +2 
clr cmdpak +4 
clr cmdpak +6 
mov #op.elp,cmdpak +10 
mov #stdaln,cmdpak +12 
dame =< «ay 
MOV +14,r 
MOV #PRGnam,r 
rfdj6: movb Cr2)+,(ri)+ 
r0,rfdj6 





een me mas 


SEQ 0065 


;init the controller 
;check if just want to park the heads 


;jumm to end of test where heads are automatically p 
scheck if RQDX3 controller 
;if other then RQDX3 than impossible to run auto siz 


;test if auto mode is enabled 

;if not skip the auto sizer routine 

;if it is t run AUTO SIZER on the controller 
;displey information from autosizer routine 


scan any spurious interrupts 


set this to a NOP for APT compatability 
he esae question 

WARNING - remove boot diskette first 
Insert new diskette 

DO you want to continue 


Yes, run format 
No, drop unit 


Reinit ctrl in case of unknown state 
Print the disk controller model number 
; Print microcode version number in dec. 


stest if auto mode is enabled 
sbranch if in auto mode else 
ask for the User what local program he wants to run 


splace “FORMAT” into ascii buffer if in auto mode 


sExecute Local program “FORMAT” or what ever they wr 


;test ownership of ring make sure we own it 
-if we don’t own it wait until we do 

;load lenght of packet to be send 

; load neg type and credit 

; load connection ID 

;load new CRN 


;load up opcode 

-stand alone modifier 

:6 letters transfer 

;starti address to place program name 
;start of Program 

;add 2 to bycnt then store 








. 
DO 
MAIN. 
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062706 
012777 
004737 


122737 
001406 
000137 


032737 


033626 
002352 
002452 
140000 


100000 
022760 


000006 
032650 
030654 


000006 
032650 


146466 


002371 


146232 





SEG G06r 


;New vector place 


packet area into ring 


: response 
;load command packet area into ring 
;sPort ownership vit. 


;Go to poll and wait routine. 


5 EERE EAEEERAEAEA ER ERE SS SESAEAEES ESSER SERA SESE SAREE RATES ESSE TEREST OS 


RFD6: 


1$: 


RCDcmd: 
RECVDAT 
RCD7: 


add 


jsr 


cmpb 


E 
jmp 


#datare, 
bit 


76 ,Sp 
#intsrv,davector 
pc , RSPCHK 


~ ti iia alia 


2,DF3 
dropunt 


#80. 
#bit15,cmdrng+2 
RCD? 


#34 ,cmdlen 
#0,cmdlen+2 
#dup.id,cmdlen+3 


#80. ,cmdpak+1i4 
cmdpak +16 
pies he tel leat 


;siIntr to here. | 

;fix stack for interrupt (4), pollwt subrtn (2) 
;Change vector 

;Go to routine that will check on 

;the response recvd from the mut. 

;it will check the cmd ref 

;num, the endcode and status. 


;is this program a standalone,DUP dialog type 


;"Device Fatal can't do remote programs” 
;drop unit and go on 


stest ownership of ri make sure we own it 
;if we don't own it wait until we do 
;load lenght of packet to be send 


; load type and credit 
;load DUP connection IC 
;load new CRN 


;load up opcode 
sno modifiers 


sload address of buffer describtor 


;New vector place 
;load response packet area into ring 
;load command packet area into ring 
;Port ownership bit. 


;Go to poll and wait routine. 


SRR RRR RARE EAA ERASE EERE EEE AEEE EEE ER ARE REESE EEE E EEE SEES 


RFD7: 


add 


#6,Sp 
#intsrv,avector 


;Intr to here. 
;fix stack for interrupt (4), 
;Change vector 


pollwt subrtn (2) 
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SEQ 0067 


if FATAL ERROR type, check mes number and print 
accordingly. No oer commands will 


ype of c 


034074 004737 030654 jsr pc , RSPCHK ;Go to routine that will check on 
;the response recvd from the mut. 
;it will check the cmd ref 
7num, the endcode and status. 
2952 ;¢ 
2953 ; get 
2954 ; r3 = type 
2955 ; r4 = SA adrs 
gone ; r5 = sub number 
034100 113703 002553 DUPDLG: movb datare+i,r3 ;get dup type info 
2959 034104 006203 asr r 
2960 034106 006203 asr r3 
2961 934110 006203 asr r3 
508 034112 006203 asr r3 
2963 034114 942703 177760 bic #type,r3 ;mask off all but DUP type 
2964 034120 013705 002552 MOV datare,r ;get dup message number info 
2965 034124 042705 17 bic #msgnbr ,r ;clear out top 4 bits 
2967 
2968 34 
2969 ; Check for the type. 
2970 ; if QUESTION type, it will be answered by sending 
2971 ; an answer through a Send command which will be followed 
$3/§ ; by a Receive command to await further instructions. 
; 
padh ; If a DEFAULT QUESTION type is given an answer will 
75 ; either be given or a blank send command returned. 
eas ; Either way we will do a Send command followed by a 
i ; Receive command. 
; 
3 ; if INFORMATIONAL type, check message number and type 
; inforrmation according to message number given. 
598 7 
298 
2984 


3. error mess 
; be given following this 


; 

; If TERMINATION type check the message number and 
; correct message. Ussually this implies a succesfu 
; end to the formatter. After this command we exit the program 


F 
; If SPECIAL type we are asking for the FCT table to be passed 
; to the RQDX3 controller. We will send the table with a Send 


33 


rint the 


mM 
SZSse 





soe8 ; command and then to a Receive command to proceed. 
2994 034130 022703 000001 qstn: cmp #Question,r3 ;test for “question” subtype 
3454 034134 001117 bne dfqstn ;if not branch 
034136 032737 020000 002536 bit #bit1l3,untflgs ;see if we are working on a known controller 
$4.44 034144 001077 bne ra ;if not type out asci' war 
034146 122737 000106 002676 cmpb #'F ,prgnam ;if running the format program ther print info 
$000 034154 0010 bne ra ;else just go for an answer 
1 1 034156 004737 030636 qnbrO: jsr pc ,clrDUPbuf sclear out data buffer so DRS macros don’t show defa 
3002 034162 022705 000000 cmp 40,75 ;check for message number 
034166 0010 bne qnbr7 ;check for next message number 
3004 034170 032737 100000 002336 bit #biti5,untflgs 











6 
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SEQ 0064 


3005 034176 001011 bne 1$ 
zee ys mae 7 GMANID " aataaaae: ‘apna: iniallaiataataiaitas ;DATE MM-DD-YYYY ? 
r 
3008 034222 012737 033060 002552 1%: Mov #”"06,datare ;The date is not used anyway so any date will do 
034 012737 030455 002554 mov #”"-1,datare+2 ;I'll be celebrating this day 
3010 034236 012737 026467 002556 MOV #"7-,datare+4 
3011 034244 012737 034461 002560 Mov #°19,datare+6 
3012 034 012737 033070 002562 MOV #”°86,datare+10 
sora 034260 0001 035016 2$: jmp SOTcmd s;branch to Send Date command 
3015 034264 022705 000007 qnbr7: cmp #7,75 ;check for message number 
3016 034270 001025 bne qnbra ;check for next message numper 
3017 034272 032737 100000 002336 bit #biti5,untflgs 
3018 034 101 bne 1$ 
3019 034302 GMANID afser,DATARE,A,177777,8.,10.,NO ;SERIAL NUMBER 9 digits ? 
30 34322 000406 br 2$ 
3021 034324 013700 002334 1$: Mov sernbr ,r0 
3022 034330 012701 002552 Mov #datare,ri ;place to stick ascii 
3023 034334 004737 030346 jsr pc , OCTASC sconvert octal to decimal ascii 
3024 034340 000137 035016 2$: mp SDT cmd 
3026 034 004737 030542 were: jsr Be: tye eet itype out ASCII sent by disk controller 
3027 034 ANID ASK.ANSWER,DATARE,A,177777,0.,10.,YES ;give it an answer 
$055 034370 000137 035016 jmp SOT cmd sbranch to Send Data command 
3030 
3031 034374 022703 000002 dfastn: cmp #DefQuest ,r3 stest for "Default Question” subtype 
3032 034400 40 beq 1$ 
3033 034402 000137 035232 infirm ;if not branch 
3034 034406 032737 O02 002336 1%: i #biti3,untflgs ssee if we are working on a known controller 
3035 034414 001402 heq 2$ 
3036 034416 000137 034772 imp daqnbra ;if not type out ascii a 
3037 034422 122737 0001 002676 2$: cnpb #'F ,prgnam ;if running the format program then print info 
ites 034430 001160 bne danbra ;else just go for an answer 
— 034432 004737 030636 dqnbri: jsr pc ,clrDUPbuf sclear out data buffer so DRS macros don't show defa 
U 
3041 034436 022705 000001 cmp #1,r5 ;check for message number 
3042 034442 001043 bne danbr4 scheck for next message number 
3043 ;put in message number 
3044 034444 032737 100000 002336 bit #bit15,untflgs 
3045 034452 001011 bne 
034454 GMANID dfunt,DATARE,A,177777,0,3,YES | ;Ask for UNIT NUMBER 0-255 ? 
3047 034474 000406 br 4$ 
‘ 8 034476 013700 002330 3$: MOV unit,ro ;get unit number if in auto mode from Hardware P tab 
“ 

9 034502 012701 2552 mov #datere rl ;store decimal ascii conversion in data ares 
et 034 004737 030346 jsr pc ,OCTASC sconvert octal to ascii decimal in date area 
3052 034512 012701 002552 4$: mov #datare,ri ;address of ascii decimal date | 
3053 034516 012700 002330 mov #unit, rd ;address to store octal conversion 
3054 034522 004737 030434 jsr pc ,ASCDEC ;convert ascii decimal to octal 
Sone Oeaate ocers7 000003 002330 2%: cmp #3,unit ;smake sure unit number is less than 4 or between 0-3 
3057 034536 162737 000004 002330 py #4 unit ssubtract 4 until unit is less than four 

034 000770 br 
3059 034546 1$: 
3061 034546 000137 035016 jmp SDT cmd ;branch to Send Data command 


fe ome 








oo 
| 


EG 


-MAIN. 





SIZER Supplied Program Date 


~—— 


3083 034714 
3084 
3085 034716 


99 
3100 034772 
01 034772 


012737 
000410 
000137 


004737 


032737 
001374 


5037 
012737 
005037 
012737 





000004 
000116 
100000 


035016 
000005 
000131 
100000 


035016 
000006 
000116 
100000 
002330 
026464 
003102 
000131 


035016 


030542 
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00255° 
002336 


002552 
002336 


002552 
002336 


002552 


002534 
002446 


002450 
002451 


002462 
002466 
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danbr4 : 


GiMANID 
1$: 


dqnbr5: 


GMANID 
1$: 


danbrsé : 


1$: 
GMANID 
2s: 


danbra: 


GMANID 


SDTcmd: 


SDT10: 


cmp “4,75 

bne danbr5 

mMOv #+'N,datare 

bit #bit15,untflgs 

bne i$ 
dfbad,DATARE,A,177777,0.1. YES 
jmp SDTcmd 

cmp #5,r5 

bne danb 

MOV #+'Y,datare 

bit #biti5,untflgs 

bne i$ 

dfdwn, DATARE,A,177777,0.1, YES 
jmp SDTcmd 

cmp #6,r5 

bne danbra 

Mov #+'N, datare 

bit #bitiS,untfligs 

beq i$ 

Mov unit,rl 

asl ri 

add #msq+4,ri 

cmp UITO+UITsiz-2,(ri) 
bne 2$ 

MOV #'Y,datare 

br 2$ 
dfcon,DATARE,A,177777,0,1, YES 
jmp SDT cmd 

jsr pc, typDUPbuf 


ASK. ANSWER ,DATARE,A,177777,0.,10., YES 


SENDDAT #datare,#10. 


bit 
bne 


MOV 
movb 
movb 
ine 
clr 
clr 
clr 
mov 
clr 
MOV 





#biti5,cmdrng+e 
10 


#0 ,cmdlen+2 
#dup.id,cmdlen+3 


#op .sen, cmdpak +10 
cmdpak +12 
#10. ,cmdpak +14 


—$—<——$- ———_—_—_———-- 





SEQ 0069 


;check for message number 
scheck for next mes number 
;set the default for 


;Use existing bad block information (CY or N)? 
sbranch to Send Date command 


;check for message number 
scheck for next agoeege number 
;Set the default for YES 


;Use Down Line Load (CY or N)? 
sbranch to Send Data command 


;check for message number 
scheck for next mess number 
;set the default for 


; first cylinder ertry 


; ee: to current unit entry 

; Is it an RD51? 

; NO, all done 

; YES, make question answer yes because 
; NO FCT tables on RD51 

; set the default for NO 

; and skip question 


sContinue if bad block information is inaccessable ( 


;if unknown use default and continue 
swho knows maybe it will be useful some day 


stype out ASCII sent by disk controller 


:give it an answer 


;sent the answer 
;test ownership of ring make sure we own it 
;if we don't own it wait until we do 

;load lenght of packet to be send 

; load neg type and credit 

; load connection ID 

;load new CRN 


;load up opcode 
sno modifiers 





-— 


CII 


CII 


a | 


~_-—- 


rae: WNW AUMAWUUAUAAWAWaU 


FO 


-MAIN. 


035110 


Trt edd ed eel ed ee et eo eo lole) 


= PRR RR RRR eRe RRR Ree re 
p+ Purr CW@O~IOCUPWNPrOOe-) 
oo 


035344 
035350 


rr 
fororn 
oor 


035354 
035360 
035362 
035370 
035372 
035400 
035402 


$42 susiees 


errs 
w 
o 





062706 
012777 
004737 
000137 
022703 
001046 
032737 
001036 
122737 
001032 
022705 
001012 
022705 
001012 
004737 
000137 
022703 
001116 
122737 


001072 
022705 





Date 


035210 
002352 
002452 
140000 
100000 
022760 
000006 
032650 
030654 
033670 


000003 
020000 


000014 


002472 


145152 


145104 


002336 
002676 


002336 
002676 
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clr 
MOV 
clr 
clr 
clr 
clr 
clr 


mov 
mov 
Mov 
MOV 
mov 
jsr 





SEQ 0070 


cmdpak +16 
#datare,cmdpak +20 
cmdpak +22 


cmdpak +24 
cmdpak +26 
cmdpak «+ 30 
cmdpak +32 


#RFD10,avector 


sload address of buffer describtor 


;New vector place 

;load response packet area into ring 
;load command packet area into ring 
;Port ownership bit. 


pc ,POLLWT ;Go to poll and wait routine. 


a te a i a ERE EEKRE EE A EA EE EEE REE EERE EE EES 


RFD1O: 
add 


infrm: 


inbro: 


inbri: 


inbra: 


term: 


mov 
jsr 


jmp 


i 


;Intr to here. 
fix stack for interrupt (4), pollwt subrtn (2) 


»Sp 
#intsrv,a@vector ;Change vector 


pc , RSPCHK ;Go to routine that will check on 
;the response recvd from the mut. 
;it will check the cmd ref 
snum, the endcode and status. 
RCDcmd :do another receive cmd 
#inform,r3 stest for “Informational” subtype 
term ;if not branch 
#bit13,untfigs ;see if we are working on a known controller 
inbra ;if not type out asci! Loy & 
#'F ,~prgnam ;if running the format program then print info 
inbra 
#0,.r5 ;check for message number 
inbri ;check for next message number — 
pc ,clrDUPbuf -clear out DUP buffer so there is no echo on last AS 
#sfbegt ; format 
#i1,r5 ;check for message number 
inobra ;check for next message number — 
pc ,clrDUPbuf -clear out DUP buffer so there is no echo on last AS 
#sfdont ;format complete 
, typDUPbuf ;type out ASCII sent by disk controller 
CDcmd ;do another receive command 


éterminat,r3 stest for termination type 


ftler ;if not branch : 

#bit13,untflgs ;see if we are working on a known controller 

tnbra ;if not type out asci! 

#'F ,~prgnam ;if running the format program then branch to error 
tnbra 

#12.,r5 stest for sub number #1 








.MAIN., 
SIZER Supplied Program 


: 
on 


ee ee 
~~ 


mee 
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035406 
5430 


46 
3147 035462 


3148 035470 


5 

5 

54 
) 

56 
57 
58 
59 
60 
1 


6 
62 
63 


gatatataeteiteietete ~ 


1 
3192 


US whore 
© 


3 
035510 
035512 
035516 


035532 
035536 


035540 


035554 
65 035556 
66 035562 


68 035566 
169 035572 
70 035612 


035742 


3193 035746 
3194 035750 
3195 035770 
3196 


001012 
000137 
022705 
001052 
032737 
001434 
013701 
006301 


022703 
001402 
000137 
032737 
001004 
122737 
001414 
004737 
000137 
022705 
001012 
000137 
022705 
001012 


000137 





Data 
037420 
000015 
100000 
002330 
026464 
000003 
144606 
002322 
033270 
037420 
030542 
037426 
000005 
037100 
020000 
000106 
030542 
037420 
000001 
037420 
000002 


037420 


002336 


002336 
002676 


tnbr 13: 


GMANIL 


GMANIL 


1$: 
2$: 


tnbra: 


ftler: 


1$: 


3$: 


2$: 


fnbori1: 


gstsf: 


fnbre: 


bne tnbri3 

printf *#sffcut 

jmp dropunt 

cmp #13.,r5 

bne tnbra 

printf #sffcnt 

bit #biti5,untfligs 

beq 2$ 

mov unit,ri 

aad ong art 
+ es 

cmp #3,(r1) 

bne 2$ 

clr alPreg 

bot.con,BOOT,-1, YES 

tst BOOT 

bne 1$ 

bot.rep,BOOT,-1,YES 

br 2$ 

j™p ELPcmd 

jmp dropunt 

isr , typDUPbuf 

Srint? PED. 

jmp etst 

cmp #Ftlerr,r3 

beq i$ : 

pit @bit13,untflgs 

bne 3$ 

cmpb #'F ,prgnam 

os nb typDUPbuf 

jsr pc, u 

printf DELS 

jmp dropunt 

ERRHRD 1,HRDO 

cmp #1,r5 

bne fnbore 

printb *#efstat 

jmp dropunt 

cmp #2.,75 

bne fnbor3 

printf #efsndt 

jmp dropunt 


SEQ 0071 


sbranch if not sub number ¢1 
;drop test unit and end pass 


;test for msg number 
;branch if not right number 


sare we in auto mode 

NO , then we are all done 
is this an RX335 
first cylinder entry 


it to current unit entry 

s it an RX33? 

NO, all done 

YES, ask if it wants to continue or not 


reinit the controller stop spurious interrupts 
Do you want ts format another? 


Yes, execute local program ; 
No, tell him to insert bootable media 


Please insert boot media and hit return 


stype out ASCII sent by disk controller 
sprint finished local program without procedure erro 
send DUP diaglog but stay in test loop 


stest for "Fatal Error” subtype 


;if not branch ; 

;see if we are working on a known controller 

;if not type out ascii! 

;if running the format program then branch to error 


;type out ASCII sent by disk controller 

:Fatal error reported when running local program 
;drop unit and end pass 

;Hard device error 


stest for sub number #1 
sbranch if not sub number #1 


;"GET STATUS failure” 
;drop unit and end pass 


;test for msg number 
sbranch if not right number 


; drop unit and end pass 











Ho 


.MAIN. MACRO VO5.03 Tuesday 10-Jun-86 13:21 Page 27-7 
SIZER Supplied Program Date 


SEQ 0072 


3197 035774 022705 000003 fnbr3: cmp es. ."5 ;test for msg numbe 
3198 036000 001012 bne fnbr4 sbranch if not rigt number 
3199 036002 printf #efcmdt 
S50: 036022 000137 037420 jmp dropunt dren unit and end pass 
3202 036026 022705 000004 fnbr4: cmp #4.,r5 ;test for msg number 
3203 036032 901012 bne fnbr5 sbranch if not right number 
3204 036034 printf #efrcvt 
3502 036054 000137 037420 jmp dropunt sdrep unit and end pass 
3207 036060 022705 000005 fnbr5S: cmp #5.,75 ;test for msg number 
3208 036064 001012 bne fnbré sbranch if not right number 
3 36066 printf #efbust 
2679 036106 000137 037420 jmp dropunt ore unit and end pass 
3212 036112 022705 000006 fnbr6é: cmp #6. ,r75 ;test for msg numbe 
3213 036116 001012 bne fnbr7 sbranch if not right number 
3214 036120 printf #efinit 
sSiz 0361 000137 037420 jmp dropunt eres unit and end pass 
3217 036144 022705 000007 fnbr7: cmp #7.,r5 :test for msg number 
3218 036150 001012 bne fnbr8s sbranch if not right number 
3219 036152 printf #efnut 
rt 036172 000137 037420 jmp dropunt eren unit and end pass 
3222 036176 022705 000010 fnbr8: cmp #8.,r5 ;test for msg number 
3223 036202 001012 bne fnbr9 sbranch if not right number 
3224 0362 printf #efdxft 
3552 036224 000137 037420 jmp dropunt ;drop unit and end pass 
3227 036230 022705 000011 fnbr9: cmp #9.,r5 ;test for msg numbe 
3228 0362 001012 bne fnbr 10 sbranch if not right number 
3229 036236 printf #effcct 
te 0 000137 037420 jmp dropunt are unit and end pass 
3232 036262 022705 000012 fnbri0: cmp #10.,r5 ;test for msg numbe 
3233 0 001012 bne fnbril sbranch if not right number 
3234 0 printf #efsekt 
3S5 036310 000137 037420 jmp dropunt sérep unit and end pass 
3237 036314 022705 000013 fnbril: cmp #11.,r5 ;test for msg number 
3238 036320 001012 bne fnbri2 sbranch if not right number 
3239 036322 printf #efrect 
sfae 036342 000137 037420 jmp dropunt sarep unit and end pass 
3242 036346 022705 000014 fnbri2: cmp #12.,r5 ;test for msg numbe 

036352 001012 bne fnbri sbranch if not right number 
3244 036354 printf #eflbft 
aSaz 036374 000137 037420 jmp dropunt ;drop unit and end pass 
3247 036400 022705 000015 fnbri3: cmp #13.,r5 stest for msg numbe 
3248 036404 001012 bne fnbri4 sbranch if not right number 
3249 036406 printf #¢effcwt 
ity 036426 000137 037420 jmp dropunt ;drop unit and end pass 
3252 036432 022705 000016 fnbri4: #14. ,r5 ;test for numbe 
3253 036436 001012 ne Pnbris ;branch i? nat rignt number 
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SIZER Supplied Program Data 


SEQ 0073 


036440 srintf #tefrert ; 
3255 036460 000137 037420 jm dropunt ;drop unit and end pass 
3257 036464 022705 000017 fnbriS: cmp #15.,r5 ;test for msg number 
3258 036470 001012 bne fnbri6 :branch if not right number 
3259 036472 printf #efrcwt 
3260 036512 000137 037420 jmp dropunt ren unit and end pass 
3262 036516 022705 000020 fnbri6: cmp #16.,r5 ;test for msg number 
3263 036522 001012 bne fnbri7 sbranch if not right number 
3264 036524 printf #efrcft 
3265 036544 000137 037420 jmp dropunt ore unit and end pass 
3267 036550 022705 000021 fnbri7: cmp #17.,r5 ;test for msg number 
3268 036554 001012 bne fnbr18 sbranch if not right number 
3269 036556 printf #effcrt 
357% 036576 000137 037420 jmp dropunt sérep unit and end pass 
3272 036602 022705 000022 fnbri8: cmp #18. ,r5 ;test for msg number 
3273 036606 001012 bne fnbri9 ;branch if not right number 
3274 036610 printf #effent 
dey 036630 000137 037420 jmp dropunt eres unit and end pass 
3277 036634 022705 000023 fnbri9: cmp #19. ,r5 ;test for msg numbe 
3278 036640 001012 bne fnbr20 sbranch if not rignt number 
3279 036642 printf #effcdt 
ott 036662 000137 037420 jmp dropunt ares unit and end pass 
3282 036666 022705 000024 fnbr20: cmp #20.,r5 ;test for msg n 
3283 0 001012 bne fnbr21 sbranch if not Sr ont number 
3284 036 printf #eftmot 
eSo7 036714 000137 037420 jmp dropunt :érep unit and end pass 
3287 036720 022705 000025 fnbr21: cmp #21.,r5 s;test for msg number 
3288 036724 001012 bne fnbr22 sbranch if not right number 
3289 036726 printf #efillt 
asa: 0367 000137 037420 jmp dropunt ;drop unit and end pass 
3292 036752 022705 000026 fnbr22: cmp #22..75 stest for msg numbe 
3293 0367 001012 bne fnbr23 sbranch if not right number 
3294 036760 printf #efwart 
a4 037 000137 037420 jmp dropunt (ree unit and end pass 
3297 037 022705 000027 fnor23: cmp #23.,r5 ;test for msg n 
3298 037010 000412 br fnbro4 sbranch if not mrt number 
3299 037012 printf #efinpt 
Sepe 037032 000137 037420 jmp dropunt ;drop unit and end pass 
3302 
3303 037036 022705 000030 fnbr24: cmp #24.,r5 ;test for msg number 
3304 037042 001012 bne $ 
3305 037044 printf #efmedt 
se09 037064 000137 037420 jmp dropunt ;drop unit and end pass 
3308 037070 004737 030542 i$: j , typDUPbuf ;t out ASCII sent by disk controller 
3509 087074 000187 037420 — Fo ‘dvop unit and end pass 





-MAIN, 


JO 





SIZER Supplied Program Date 


_-_-_—- 


20 26 
3321 037132 
how to handle 
3322 037152 

3323 
3324 037156 


037304 
037310 


037 
037374 


3328 037400 
3329 


3330 
3331 037404 


000137 
022705 
001110 


032737 
001374 


062706 
012777 
004737 


000137 





00000 
022760 
000006 
032650 
030654 


033670 
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002336 
002676 


002534 
002446 


002450 
002451 


002462 
002466 
002472 


142732 
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2$: 


1$: 


SOT1i1: 


jsr 
printf 


jmp 


cl.rs 
unkwn 
rae 
‘. on 
pc, typDUPbuf 
SDF 16 


unkwn 
#2,7r5 
unk 


wn 
»blduit 

ITadr, #UITsiz 
#bit15,cmdrng+2 
SOT11 

#34 ,cmdlen 
#0,cmdlen+2 
#dup. id, cmdlen+3 
c 


#OP. 
7, a es 
#UITsiz,cmdpak +14 
cmdpak +16 
por na et «gaia 


#oit15 . CMDRNG+2 
pe,POL' WT 





SEQ 0074 


;test for special type 

;branch if not known 

;see if we are working on a known controller 
;if not type out asci! 

;if running the format program then print info 


;type out ASCII sent by disk controller 
;special command issued by local program did not kno 


;report error 


;test for passage number 1 
;branch if not known 

;g0 get or build UIT table 

;sent Unit Information table 

;test ownership of ring make sure we own it 
;if we don’t own it wait until we do 

;load lenght of packet to be send 

; load msg type and credit 

;load DUP connection ID 

;load new CRN 


;load up opcode 
sno modifiers 


;load address of buffer describtor 


;New vector place ; : 
;load response packet area into ring 
;load command packet area into ring 
;Port ownership bit. 


;Go to poll and wait routine. 


$ etek Rn RR a RE RAE EAE EE AAA E AREER EERE EE EEE ER EE 


RFD1i1: 
add 
Mov 
jsr 
jmp 
unkwn: ERRSF 


#6 ,Sp 
#intsrv,advector 
pc , RSPCHK 


RCDcmd 


0,SFO 


sIntr to here. 

-fix stack for interrupt (4), pollwt subrtn (2) 
;Change vector 

;Go to routine that will check on 

sthe response recvd from the mut. 

;it will check the cmd ref 

snum, the endcode and status. 

:do another receive cmd 


; system error unkown response 











KO 
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é , SEQ 0075 

SIZER Supplied Program Date 

3332 037414 004737 030730 jsr pc ,.PRNTpkt ;type out packet information 

3334 037420 dropunt : 

aaee 037420 DODU LOGUNIT ;drop the unit 

3337 037426 etst: 

3338 037426 023727 002340 000023 cmp mdlnbr , #mrqdx3 

3339 037434 001014 bne i$ ;if radx3 do park else don't 

3340 037436 004737 023550 sr pe ,ardint ;reboot system controller 

3341 037442 printb #Parkdrv ;tell user to wait while parking heads 

3342 037462 004737 024620 jsr pc, autosizer ;go park heads 

3343 037466 1$: 

3344 037466 docln ;take controller offline 

3345 037470 ENDTST 





—=——_— ~~ 


.MAIN. 


3347 037472 

3348 

3349 037474 
50 


3 
aes 037504 


58 
3359 037514 
360 
3361 037522 
3363 037524 


3366 037532 


sa50 037534 


se52 037546 


000001 
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SIZER Supplied Program Data 


GPRMA ip.adr,0,0,160000,177776, YES 
GPRMA vec.adr,2,0,0,776, YES 


GPRML prk.hds,10,biti2, YES 
XFERT labelO 
GPRML auto.md,10,biti5, YES 


XFERF labelO 


GPRMD drv.nbr,4,0,-1,0,255., YES 


GPRMD ser.nbr,6,D,-1,1,012345.,/ES 


labelO: 
exit hrd 
ENDHRD 


LASTAD 
L$LAST:: 
ENDMOD 

.END 





SEQ 0076 


;Get IP reg addr (170000-177776) 

;place in word 2 of the table 

ok value is from default 
e. 


;Get the vector addr (octal 0-776) 
;place in word 

;default value is from default 

; table. 


;ask if they want to just park the heads 
;1f last gprml input is true (y) transfer 


sask if they want to go in to auto mode 
:This will format the drive using the autosizer 


;If last gprml input is false (n) transfer 
;control 20 label. 


;Get the logical drive (dECIMAL 0-255) 
;place in wor 

;default value is from default 

; table. 


;Get the drive serial number 
;place in word 

-default value is from default 
stable. 
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SEQ 0077 
Symbol table 
= 000000 BIT9 = 001000 G C$PNTB= 000014 DRVTX4 005165 FNBRi8 036602 
ABORT 033114 BLDUIT 027542 C$PNTF= 000017 DRVTXS 00526 FNBR19 036634 
ABRTS 024450 BOE = 0.0400 G C$PNTS= 000016 DRVTX6 005355 FNBR2 035742 
A * 20 G BOOT 00. C$PNTX= 000015 DRVTX7 005450 FNBR20 036666 
ASCDEC 030434 BOT.CO 007673 C$PUTB= 000072 DRV.NB 004222 FNBR21 036720 
020543 B 007147 PUTW= 000073 DUPDLG 034100 FNBR22 036752 
ASK .08 7 007603 C$QIO = 000377 > ID= FNBR23 
ASK.LB 007021 CINTR 002522 $RDBU= 000007 EFBUST 021517 FNBR24 037036 
ASK .PR CL 030636 C$REFG= 000047 021435 FNBR3 035774 
ASK.RB 007074 CMDLEN 002446 C$REL = 000077 EFDXFT 021642 FNBR4 O 
ASK.XB 0066 CMDPAK 002452 C$RESE= 000033 EFFCCT 021731 FNBRS 
005637 CMDRNG 002532 C$REVI= 00000 EFFCDT 022425 FNBR6 036112 
ASMSGT 006507 CONT 0 C$RFLA= 000021 EFFCNT 022401 FNBR7 036144 
ASMSG1 005733 CONTON 033012 C$RPT = 000025 EFFCRT 022356 FNBRS 036176 
ASMSG2 CSAU = C$SEFG= EFFCWT 022211 FNBR9 036230 
ASMSG2 006257 CS$AUTO= C$SPRI= 1 EFILLT 022511 FILER 035616 
006341 $BRK = 000022 C$SVEC= 000037 EF INIT FTLERR= 
ASMSGS 006411 C$BSEG= TOME = 7 AU = OQOO015 
3 $BSUB= 000002 DATARE 002552 EFLBFT 022126 F$AUTO= 9000020 
ASMSG7 006021 CS$CLCK= 2 002720 EFMEDT 022705 = 000040 
ASMSG8 CS$CLEA= 000012 DECTBL 030420 021606 F$CLEA= 000007 
ASMSG9 006152 C$CLOS= 000035 FQUE= 2 EFRCCT 022037 = 000016 
ASSEMB= C$CLPi=- DFBAD 020300 EFRCFT 022341 F$END = 000041 
AUTO 025314 G C$CPBF= 000074 C 20400 EFRCRT 022272 F $HARD= 
AUTOBL 030060 C$ = 000075 D 20350 EFRCVT $HW = 000013 
AUTODI 026474 CS$CVEC= 000036 DFPTBL 002276 G EFRCWT 022315 F $INIT= 
AUTOEN 026474 C$DCLN= 000044 DFQSTN 034374 EFSEKT 022020 F$JMP = 000050 
AUTOSI 024620 C$DO0DU= 000051 UN 020237 EFSNDT 021407 F$MOD = 000000 
AUTOSZ 025270 CS$DRPT= 000024 DF 1 011141 EFSTAT 021360 F$MSG = 000011 
AUTO.M 004305 C$DU = 000053 DF1il 011425 EFTMOT 022462 F$PROT= 000021 
B = 000011 CSEDIT= DF 12 011462 EF 022730 PWR = 000017 
BITO = 000001 G CSERDF= 000055 OF 13 011516 EFWART 0622563 F$RPT = 000012 
BITOO = 000001 G CSERHR= DF 14 011572 EF .CON= G SEG = 000003 
BITO1 = 000002 G CSERRO= DFi5 011653 EF .NEW= 000035 G F$SOFT= 000005 
BITO2 = 000004 G CSERSF = DF 16 011743 EF .PWR= G F$SRV = 000010 
BITO3 = 000010 G CSERSO= 000057 DF2 011203 EF .RES= 000037 G SUB = 000002 
BITO4 = 000020 G CSESCA= 000010 DF3 011252 EF .STA= OG = 000014 
BITOS = 000040 G CS$ESEG= DF4 011362 ELPCMD 033270 FS$TEST= 000001 
BITO6 = 000100 G CSESUB= 000003 DIAGMC= * ELP6 0 024264 
BITO7 = 000200 G CSETST= DNINT 024616 033116 SO 02 
BITO8 = 000400 CSEXIT= 32 26 G ERSEKO= S2 024264 
BITO9 = 001000 G CS$FREQ= 000101 26450 ERUDON= 000001 GOBIT 024250 
BIT1l = 2G CS$FRME= DO.CON 004426 ERUINT= 000002 GSTSF 035716 
BIT1O = 002000 G C$GETB= 000026 DQNBRA 034772 ESP4 024620 G$CNTO= 000200 
BIT11 = 004000 G C$GETW= 000027 DQNBR1 034432 ETST 037426 G$DELM= 000372 
BITi2 = 010000 G C$GMAN= 000043 DQ@NCR4 034552 EVL = 000004 G G$DISP= 000003 
BIT13 = 020000 G C$GPHR= 000042 DQNBR5S 034622 ES$END = 002100 G$EXCP= 000400 
BITI4 = 040000 G C$GPRI= DQNBR6 034672 E$LOAD= G$HILI= 000002 
BIT1S5 = 100000 C$INIT= 000011 037420 FNBR1 035710 LOLI= 000001 
BITiIST 031606 C$INLP= 017771 FNBR1O G$ = 
BIT2 = 000004 C$MANI= DRVTXA 62 FNBRi1 036314 G$OFFS= 
BITS = 000010 G C$MAP = 000102 DRVTXB 004511 FNBRi2 O G$OFSI= 000376 
BIT4 = 000020 G C$MEM = 31 DRVTXC 005543 FNBRi3 O G$PRMA= 
BITS = 000040 G C$MMU = 000103 DRVTKO 5 FNBR14 036432 G$PRMD= 000002 
BIT6 = 000100 G CS$MSG = 23 DRVTX1i 004701 FNBR15 036464 G$PRML= 000000 
BIT? = 000200 CSOPNR= 000034 DRVTX2 004775 FNBRi6 036516 G$RADA= 000140 
BITS = 000400 G CSOPNW= 000104 DRVTX3 005071 FNBR17 036550 G$RADB= 000000 
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Symbol table 


°o 
MAA 


: 
8 


002544 
002110 G 
002036 G 


002070 G 
033120 G 


002106 
0 


OOOOOOOOVOWOAHNHHOHHOHOHOOHHOHHHHHHHHHHHHHHHHHAHHHHHAAAAAH 


O$APTS= 


015037 


014673 


000 G 
G 


ieee, aeneeammmammiaaae 


SFFCUT 


021255 





SEQ 0078 











SEG 007% 
Symbol table 
SF RBBT Ooieel STEPRKX 025656 T8e@28 0 8=.:« 010735 TSNEST= 177777 UIT2 
RCBT 020 SVCGBL= 000000 Tee@29 43=s«O10765 TSNSO = GO00000 VIT3 003314 
SFREVT 020615 SVCINS= 177777 TBQ3 010076 TSNS1 = QO00004 UIT4 
SFRIT 020637 SVESLB- 177777 TBQ@30 43=—s—«O11016 TSPTHV= eeeee0e GX UITS 002524 
area! 020671 SVCTAG= 177777 T6931 011044 T$PTNU= 000000 UIT 003630 
SFTSYT 021156 VCTST= 177777 TBOG32 011106 T$SAVL= 177777 UIT7 003734 
SFTO 012273 S$LSYM= 010000 TBQ4 010120 T$SEGL= 177777 UNI 002330 
SFT1 $ 026454 TBQS 010142 T$SIZE= seee0¢ GX UNKWN 037404 
SFXBBT 021076 S$$FLA 026456 TBQ6 010164 T$SUBN= 000000 UNTDSZ= 000002 
SFO 0 S$$6RTI 026364 G TBQ7 T$TAGL= 177777 UNTFLG 
SF i 012134 $UDC 026324 G TBQs 010230 T$TAGN= 010010 006563 
ra i 012175 S$$UDI TBQ9 010252 = VECTOR 
SI 026296 BLD TERM 035354 T$TEST= 004157 
2t5ENe 026222 TB 007745 T = T$TSTM= 177777 WARNI 
SIZEXI 026270 G 1 010032 TIMOUT 024150 T$TSTS= 1 T 024210 
SIZFLP 0 TBQ10 10274 TNBRA 035566 T$$AUT= 010003 WSCMD = 140022 
SIZFPS O02 BQ@1i1 #010317 TNBR1i2 035402 T$$CLE= 010004 W$DAT = 140020 
SIZIN os8h BQi2 010346 T T$$DU = 010005 WSFPL = 140004 
SIZLOP 025522 G TBQ13 010405 TYPASC 020032 T$$HAR= 010007 XBN 002705 
I 025 Q14 010417 TY T$$HW = O X$ALWA= 000000 
I 026202 TBQi5 010436 TYPE = 177760 T$$INI= 010002 X$FALS= OOO0AO0 
IZRX 025754 TBQi6 010447 T$ARGC= T$$PRO= 010001 X$OFFS= 0004.9 
SIZRX3 02 TBQi7 010474 T$CODE= 001004 T$$TES= X¥$TRUE= 000020 
SIZSET 025432 TBQ@i8 010513 T$ = 1 033166 G 2 33052 
ry N 026056 TBQ19 010532 TSEXCP= UAM = 000 G $ 33072 
33 025412 TBQ2 010054 T$FLAG= 000041 UIN 002344 $4 033106 
037100 TBQ20 8=6.010565 TSFREE= «xaae«% GX UITADR 002320 .A.DEF= 000040 
SP * TBQ@21 010615 T$GMAN= 000000 UITDF 004040 .A.FAT= 000120 
256 NT 023672 TBQ22 010647 T$HILI= 030071 UITLOC 030312 A. INF= 
SPSINT 023762 TBQ@23 010662 T$LAST= 000001 UITOTH= 000010 A.QUE= 0000 
SP4INT 024042 TBQ24 §=.010675 T$LOLI= 000001 UITSIZ= 000104 A. TER= 000100 
STDALN* 000001 TBQ25 010710 T$LSYM= 010000 UITO 003000 A.TYP= 000020 
TEPMO 025750 TBQ26 010723 T$LTNO= 000001 UIT 003104 B.SPL= 000140 
TEPOU 025734 
. ABS. 037566 000 3=©(CRW,I,GBL,ABS,OVR) : 
000000 (RW,I,LCL,REL,CON) 


001 
Errors detected: 0 
ese Assembler statistics 


Work file reads: 332 

rk file writes: 338 
Size of work file: 39752 Horde 136 apogen? 
Size of core pool: 19684 Words ( 7 er 
Operating system: RSX-11M/PLUS Cunder X/VMS ) 


me: 04:22.27 
FARES zhackd tots Sees VC3SR/ML.ZRQCCO.MAC 





